home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / utmisc1 / calctrnr.lha / Calctrainer / Source / rechentrainerGUI.c < prev    next >
C/C++ Source or Header  |  1996-01-12  |  62KB  |  2,620 lines
  1. #ifndef MAKE_ID
  2. #define MAKE_ID(a,b,c,d) ((ULONG) (a)<<24 | (ULONG) (b)<<16 | (ULONG) (c)<<8 | (ULONG) (d))
  3. #endif
  4.  
  5. /* Libraries */
  6. #include <libraries/mui.h>
  7. #include <libraries/gadtools.h> /* for Barlabel in MenuItem */
  8. #include <exec/memory.h>
  9.  
  10. /* Prototypes */
  11. #include <proto/muimaster.h>
  12. #include <clib/exec_protos.h>
  13. #include <clib/alib_protos.h>
  14.  
  15. #include "rechentrainerGUI.h"
  16.  
  17. static char *GetMBString(APTR ref)
  18. {
  19.     char *aux;
  20.  
  21.     aux = GetRechenString(ref);
  22.                                         
  23.                         return(aux);
  24. }
  25.  
  26. struct ObjApp * CreateApp(void)
  27. {
  28.     struct ObjApp * Object;
  29.  
  30.     APTR    MNlabel1Projekt, MNlabel1ber, MNlabel1Punktestand, MNlabel1Beenden;
  31.     APTR    MNlabel1BarLabel3, MNlabel1Rechnungsarten, MNlabel1Addition, MNlabel1Subtraktion;
  32.     APTR    MNlabel1Multiplikation, MNlabel1Division, GROUP_ROOT_0, REC_label_1;
  33.     APTR    GR_grp_0, Space_13, Space_12, Space_4, Space_5, Space_6, Space_7;
  34.     APTR    REC_label_2, GR_grp_1, Space_8, Space_11, Space_9, Space_10, REC_label_3;
  35.     APTR    GROUP_ROOT_1, GR_grp_2, Space_14, GR_grp_3, obj_aux0, obj_aux1, GR_grp_4;
  36.     APTR    GROUP_ROOT_2, GR_grp_5, Space_16, GR_grp_6, obj_aux2, obj_aux3, GR_grp_7;
  37.     APTR    GROUP_ROOT_3, GR_grp_8, Space_18, GR_grp_9, obj_aux4, obj_aux5, GR_grp_10;
  38.     APTR    GROUP_ROOT_4, GR_grp_11, Space_20, GR_grp_12, obj_aux6, obj_aux7;
  39.     APTR    GR_grp_13, GROUP_ROOT_5, GR_grp_16, GR_grp_17, GR_grp_18, LA_label_4;
  40.     APTR    GR_grp_19, LA_Label_5, Scale_0, GR_grp_20, GR_grp_21, LA_label_7;
  41.     APTR    GR_grp_22, LA_Label_8, Scale_1, GR_grp_23, GR_grp_24, LA_label_10;
  42.     APTR    GR_grp_25, LA_Label_11, Scale_2, GR_grp_26, GR_grp_27, LA_label_13;
  43.     APTR    GR_grp_28, LA_Label_14, Scale_3, GR_grp_29, GR_grp_30, LA_Label_16;
  44.     APTR    LA_label_17, GR_grp_31, Space_23, Scale_4, GROUP_ROOT_6, GR_grp_14;
  45.     APTR    Space_2, GR_grp_15, Space_0, Space_1, Space_3;
  46.  
  47.     if (!(Object = AllocVec(sizeof(struct ObjApp),MEMF_PUBLIC|MEMF_CLEAR)))
  48.         return(NULL);
  49.  
  50.     Object->STR_TX_label_0 = GetMBString(MSG_TX_label_0);
  51.     Object->STR_TX_label_1 = GetMBString(MSG_TX_label_1);
  52.     Object->STR_Mul_Nr = NULL;
  53.     Object->STR_Aufg_Mul = NULL;
  54.     Object->STR_Mul_Erg_tex = NULL;
  55.     Object->STR_Mul_Erg = NULL;
  56.     Object->STR_Mul_Richtig = GetMBString(MSG_Mul_Richtig);
  57.     Object->STR_Mul_Falsch = NULL;
  58.     Object->STR_TX_label_2 = GetMBString(MSG_TX_label_2);
  59.     Object->STR_TX_label_3 = GetMBString(MSG_TX_label_3);
  60.     Object->STR_Div_Nr = NULL;
  61.     Object->STR_Aufg_Div = NULL;
  62.     Object->STR_Div_Erg_tex = NULL;
  63.     Object->STR_Div_Erg = NULL;
  64.     Object->STR_Div_Richtig = NULL;
  65.     Object->STR_Div_Falsch = NULL;
  66.     Object->STR_TX_label_4 = GetMBString(MSG_TX_label_4);
  67.     Object->STR_TX_label_5 = GetMBString(MSG_TX_label_5);
  68.     Object->STR_Addi_Nr = NULL;
  69.     Object->STR_Aufg_Addi = NULL;
  70.     Object->STR_Addi_Erg_tex = NULL;
  71.     Object->STR_Addi_Erg = NULL;
  72.     Object->STR_Addi_Richtig = NULL;
  73.     Object->STR_Addi_Falsch = NULL;
  74.     Object->STR_TX_label_6 = GetMBString(MSG_TX_label_6);
  75.     Object->STR_TX_label_7 = GetMBString(MSG_TX_label_7);
  76.     Object->STR_Subtr_Nr = NULL;
  77.     Object->STR_Aufg_Subtr = NULL;
  78.     Object->STR_Subtr_Erg_tex = NULL;
  79.     Object->STR_Subtr_Erg = NULL;
  80.     Object->STR_Subtr_Richtig = NULL;
  81.     Object->STR_Subtr_Falsch = NULL;
  82.     Object->STR_Ausw_Mul_Richtig = NULL;
  83.     Object->STR_Ausw_Mul_Falsch = NULL;
  84.     Object->STR_Ausw_Div_Richtig = NULL;
  85.     Object->STR_Ausw_Div_Falsch = NULL;
  86.     Object->STR_Ausw_Addi_Richtig = NULL;
  87.     Object->STR_Ausw_Addi_Falsch = NULL;
  88.     Object->STR_Ausw_Subtr_Richtig = NULL;
  89.     Object->STR_Ausw_Subtr_Falsch = NULL;
  90.     Object->STR_Gesammt_Richtig = NULL;
  91.     Object->STR_Gesammt_Falsch = NULL;
  92.     Object->STR_TX_label_8 = GetMBString(MSG_TX_label_8);
  93.  
  94.     REC_label_1 = RectangleObject,
  95.         MUIA_Rectangle_HBar, TRUE,
  96.     End;
  97.  
  98.     Space_13 = VSpace(30);
  99.  
  100.     Space_12 = HSpace(2);
  101.  
  102.     Object->BT_Multi = SimpleButton(GetMBString(MSG_BT_Multi));
  103.  
  104.     Space_4 = HSpace(10);
  105.  
  106.     Object->BT_Divi = SimpleButton(GetMBString(MSG_BT_Divi));
  107.  
  108.     Space_5 = HSpace(10);
  109.  
  110.     Object->BT_Addi = SimpleButton(GetMBString(MSG_BT_Addi));
  111.  
  112.     Space_6 = HSpace(10);
  113.  
  114.     Object->BT_Subtr = SimpleButton(GetMBString(MSG_BT_Subtr));
  115.  
  116.     Space_7 = HSpace(5);
  117.  
  118.     GR_grp_0 = GroupObject,
  119.         MUIA_Frame, MUIV_Frame_Group,
  120.         MUIA_FrameTitle, GetMBString(MSG_GR_grp_0Title),
  121.         MUIA_Group_Horiz, TRUE,
  122.         Child, Space_13,
  123.         Child, Space_12,
  124.         Child, Object->BT_Multi,
  125.         Child, Space_4,
  126.         Child, Object->BT_Divi,
  127.         Child, Space_5,
  128.         Child, Object->BT_Addi,
  129.         Child, Space_6,
  130.         Child, Object->BT_Subtr,
  131.         Child, Space_7,
  132.     End;
  133.  
  134.     REC_label_2 = RectangleObject,
  135.         MUIA_Rectangle_HBar, TRUE,
  136.     End;
  137.  
  138.     Space_8 = VSpace(30);
  139.  
  140.     Space_11 = HSpace(2);
  141.  
  142.     Object->BT_Erg = SimpleButton(GetMBString(MSG_BT_Erg));
  143.  
  144.     Space_9 = HSpace(30);
  145.  
  146.     Object->BT_Ende = SimpleButton(GetMBString(MSG_BT_Ende));
  147.  
  148.     Space_10 = HSpace(5);
  149.  
  150.     GR_grp_1 = GroupObject,
  151.         MUIA_Frame, MUIV_Frame_Group,
  152.         MUIA_FrameTitle, GetMBString(MSG_GR_grp_1Title),
  153.         MUIA_Group_Horiz, TRUE,
  154.         Child, Space_8,
  155.         Child, Space_11,
  156.         Child, Object->BT_Erg,
  157.         Child, Space_9,
  158.         Child, Object->BT_Ende,
  159.         Child, Space_10,
  160.     End;
  161.  
  162.     REC_label_3 = RectangleObject,
  163.         MUIA_Rectangle_HBar, TRUE,
  164.     End;
  165.  
  166.     GROUP_ROOT_0 = GroupObject,
  167.         MUIA_Frame, MUIV_Frame_ImageButton,
  168.         Child, REC_label_1,
  169.         Child, GR_grp_0,
  170.         Child, REC_label_2,
  171.         Child, GR_grp_1,
  172.         Child, REC_label_3,
  173.     End;
  174.  
  175.     MNlabel1ber = MenuitemObject,
  176.         MUIA_Menuitem_Title, GetMBString(MSG_MNlabel1ber),
  177.         MUIA_Menuitem_Shortcut, GetMBString(MSG_MNlabel1berChar),
  178.     End;
  179.  
  180.     MNlabel1Punktestand = MenuitemObject,
  181.         MUIA_Menuitem_Title, GetMBString(MSG_MNlabel1Punktestand),
  182.         MUIA_Menuitem_Shortcut, GetMBString(MSG_MNlabel1PunktestandChar),
  183.     End;
  184.  
  185.     MNlabel1Beenden = MenuitemObject,
  186.         MUIA_Menuitem_Title, GetMBString(MSG_MNlabel1Beenden),
  187.         MUIA_Menuitem_Shortcut, GetMBString(MSG_MNlabel1BeendenChar),
  188.     End;
  189.  
  190.     MNlabel1BarLabel3 = MUI_MakeObject(MUIO_Menuitem, NM_BARLABEL, 0, 0, 0);
  191.  
  192.     Object->MNlabel1Speichern = MenuitemObject,
  193.         MUIA_Menuitem_Title, GetMBString(MSG_MNlabel1Speichern),
  194.         MUIA_Menuitem_Shortcut, GetMBString(MSG_MNlabel1SpeichernChar),
  195.     End;
  196.  
  197.     Object->MNlabel1Laden = MenuitemObject,
  198.         MUIA_Menuitem_Title, GetMBString(MSG_MNlabel1Laden),
  199.         MUIA_Menuitem_Shortcut, GetMBString(MSG_MNlabel1LadenChar),
  200.     End;
  201.  
  202.     MNlabel1Projekt = MenuitemObject,
  203.         MUIA_Menuitem_Title, GetMBString(MSG_MNlabel1Projekt),
  204.         MUIA_Family_Child, MNlabel1ber,
  205.         MUIA_Family_Child, MNlabel1Punktestand,
  206.         MUIA_Family_Child, MNlabel1Beenden,
  207.         MUIA_Family_Child, MNlabel1BarLabel3,
  208.         MUIA_Family_Child, Object->MNlabel1Speichern,
  209.         MUIA_Family_Child, Object->MNlabel1Laden,
  210.     End;
  211.  
  212.     MNlabel1Addition = MenuitemObject,
  213.         MUIA_Menuitem_Title, GetMBString(MSG_MNlabel1Addition),
  214.         MUIA_Menuitem_Shortcut, GetMBString(MSG_MNlabel1AdditionChar),
  215.     End;
  216.  
  217.     MNlabel1Subtraktion = MenuitemObject,
  218.         MUIA_Menuitem_Title, GetMBString(MSG_MNlabel1Subtraktion),
  219.         MUIA_Menuitem_Shortcut, GetMBString(MSG_MNlabel1SubtraktionChar),
  220.     End;
  221.  
  222.     MNlabel1Multiplikation = MenuitemObject,
  223.         MUIA_Menuitem_Title, GetMBString(MSG_MNlabel1Multiplikation),
  224.         MUIA_Menuitem_Shortcut, GetMBString(MSG_MNlabel1MultiplikationChar),
  225.     End;
  226.  
  227.     MNlabel1Division = MenuitemObject,
  228.         MUIA_Menuitem_Title, GetMBString(MSG_MNlabel1Division),
  229.         MUIA_Menuitem_Shortcut, GetMBString(MSG_MNlabel1DivisionChar),
  230.     End;
  231.  
  232.     MNlabel1Rechnungsarten = MenuitemObject,
  233.         MUIA_Menuitem_Title, GetMBString(MSG_MNlabel1Rechnungsarten),
  234.         MUIA_Family_Child, MNlabel1Addition,
  235.         MUIA_Family_Child, MNlabel1Subtraktion,
  236.         MUIA_Family_Child, MNlabel1Multiplikation,
  237.         MUIA_Family_Child, MNlabel1Division,
  238.     End;
  239.  
  240.     Object->MN_label_1 = MenustripObject,
  241.         MUIA_Family_Child, MNlabel1Projekt,
  242.         MUIA_Family_Child, MNlabel1Rechnungsarten,
  243.     End;
  244.  
  245.     Object->WI_Auswahl = WindowObject,
  246.         MUIA_Window_Title, GetMBString(MSG_WI_Auswahl),
  247.         MUIA_HelpNode, "WI_Auswahl",
  248.         MUIA_Window_Menustrip, Object->MN_label_1,
  249.         MUIA_Window_ID, MAKE_ID('0', 'W', 'I', 'N'),
  250.         WindowContents, GROUP_ROOT_0,
  251.     End;
  252.  
  253.     Object->TX_label_0 = TextObject,
  254.         MUIA_Background, MUII_WindowBack,
  255.         MUIA_Text_Contents, Object->STR_TX_label_0,
  256.         MUIA_Text_PreParse, "\033c",
  257.         MUIA_Text_SetMin, TRUE,
  258.     End;
  259.  
  260.     Object->Anz_Mul = StringObject,
  261.         MUIA_Weight, 10,
  262.         MUIA_Frame, MUIV_Frame_String,
  263.         MUIA_String_Accept, "0123456789",
  264.         MUIA_String_MaxLen, 8,
  265.         MUIA_String_Format, MUIV_String_Format_Center,
  266.     End;
  267.  
  268.     Space_14 = HSpace(15);
  269.  
  270.     GR_grp_2 = GroupObject,
  271.         MUIA_Frame, MUIV_Frame_Group,
  272.         MUIA_Group_Columns, 3,
  273.         Child, Object->TX_label_0,
  274.         Child, Object->Anz_Mul,
  275.         Child, Space_14,
  276.     End;
  277.  
  278.     Object->TX_label_1 = TextObject,
  279.         MUIA_Background, MUII_TextBack,
  280.         MUIA_Frame, MUIV_Frame_Text,
  281.         MUIA_Text_Contents, Object->STR_TX_label_1,
  282.         MUIA_Text_PreParse, "\033c",
  283.         MUIA_Text_SetMax, TRUE,
  284.         MUIA_Text_SetMin, TRUE,
  285.     End;
  286.  
  287.     Object->Mul_Nr = TextObject,
  288.         MUIA_Weight, 27,
  289.         MUIA_Background, MUII_TextBack,
  290.         MUIA_Frame, MUIV_Frame_Text,
  291.         MUIA_Text_Contents, Object->STR_Mul_Nr,
  292.         MUIA_Text_PreParse, "\033c",
  293.         MUIA_Text_SetMin, TRUE,
  294.     End;
  295.  
  296.     Object->Aufg_Mul = TextObject,
  297.         MUIA_Weight, 80,
  298.         MUIA_Background, MUII_TextBack,
  299.         MUIA_Frame, MUIV_Frame_Text,
  300.         MUIA_Text_Contents, Object->STR_Aufg_Mul,
  301.         MUIA_Text_PreParse, "\033c",
  302.         MUIA_Text_SetMin, TRUE,
  303.     End;
  304.  
  305.     Object->Erg_Mul = StringObject,
  306.         MUIA_Frame, MUIV_Frame_String,
  307.         MUIA_String_Accept, "-0123456789",
  308.         MUIA_String_MaxLen, 12,
  309.         MUIA_String_Format, MUIV_String_Format_Center,
  310.     End;
  311.  
  312.     obj_aux1 = Label2(GetMBString(MSG_Erg_Mul));
  313.  
  314.     obj_aux0 = GroupObject,
  315.         MUIA_Group_Columns, 2,
  316.         Child, obj_aux1,
  317.         Child, Object->Erg_Mul,
  318.     End;
  319.  
  320.     GR_grp_3 = GroupObject,
  321.         MUIA_Frame, MUIV_Frame_Group,
  322.         MUIA_Group_Horiz, TRUE,
  323.         Child, Object->TX_label_1,
  324.         Child, Object->Mul_Nr,
  325.         Child, Object->Aufg_Mul,
  326.         Child, obj_aux0,
  327.     End;
  328.  
  329.     Object->Mul_Erg_tex = TextObject,
  330.         MUIA_Background, MUII_WindowBack,
  331.         MUIA_Frame, MUIV_Frame_Text,
  332.         MUIA_Text_Contents, Object->STR_Mul_Erg_tex,
  333.         MUIA_Text_PreParse, "\033c\0338",
  334.         MUIA_Text_SetMin, TRUE,
  335.     End;
  336.  
  337.     Object->Mul_Erg = TextObject,
  338.         MUIA_Weight, 21,
  339.         MUIA_Background, MUII_WindowBack,
  340.         MUIA_Frame, MUIV_Frame_Text,
  341.         MUIA_Text_Contents, Object->STR_Mul_Erg,
  342.         MUIA_Text_PreParse, "\033c\0338",
  343.         MUIA_Text_SetMin, TRUE,
  344.     End;
  345.  
  346.     Object->Mul_Richtig = TextObject,
  347.         MUIA_Weight, 51,
  348.         MUIA_Background, MUII_WindowBack,
  349.         MUIA_Frame, MUIV_Frame_Text,
  350.         MUIA_FrameTitle, GetMBString(MSG_Mul_RichtigTitle),
  351.         MUIA_Text_Contents, Object->STR_Mul_Richtig,
  352.         MUIA_Text_PreParse, "\033c",
  353.         MUIA_Text_SetMin, TRUE,
  354.     End;
  355.  
  356.     Object->Mul_Falsch = TextObject,
  357.         MUIA_Weight, 50,
  358.         MUIA_Background, MUII_WindowBack,
  359.         MUIA_Frame, MUIV_Frame_Text,
  360.         MUIA_FrameTitle, GetMBString(MSG_Mul_FalschTitle),
  361.         MUIA_Text_Contents, Object->STR_Mul_Falsch,
  362.         MUIA_Text_PreParse, "\033c",
  363.         MUIA_Text_SetMin, TRUE,
  364.     End;
  365.  
  366.     GR_grp_4 = GroupObject,
  367.         MUIA_Frame, MUIV_Frame_Group,
  368.         MUIA_Group_Horiz, TRUE,
  369.         Child, Object->Mul_Erg_tex,
  370.         Child, Object->Mul_Erg,
  371.         Child, Object->Mul_Richtig,
  372.         Child, Object->Mul_Falsch,
  373.     End;
  374.  
  375.     GROUP_ROOT_1 = GroupObject,
  376.         MUIA_Frame, MUIV_Frame_Prop,
  377.         MUIA_FrameTitle, GetMBString(MSG_GROUP_ROOT_1Title),
  378.         MUIA_Group_SameWidth, TRUE,
  379.         Child, GR_grp_2,
  380.         Child, GR_grp_3,
  381.         Child, GR_grp_4,
  382.     End;
  383.  
  384.     Object->WI_Multiplikation = WindowObject,
  385.         MUIA_Window_Title, GetMBString(MSG_WI_Multiplikation),
  386.         MUIA_HelpNode, "WI_Multiplikation",
  387.         MUIA_Window_ID, MAKE_ID('1', 'W', 'I', 'N'),
  388.         WindowContents, GROUP_ROOT_1,
  389.     End;
  390.  
  391.     Object->TX_label_2 = TextObject,
  392.         MUIA_Background, MUII_WindowBack,
  393.         MUIA_Text_Contents, Object->STR_TX_label_2,
  394.         MUIA_Text_PreParse, "\033c",
  395.         MUIA_Text_SetMin, TRUE,
  396.     End;
  397.  
  398.     Object->Anz_Div = StringObject,
  399.         MUIA_Weight, 10,
  400.         MUIA_Frame, MUIV_Frame_String,
  401.         MUIA_String_Accept, "0123456789",
  402.         MUIA_String_MaxLen, 8,
  403.         MUIA_String_Format, MUIV_String_Format_Center,
  404.     End;
  405.  
  406.     Space_16 = HSpace(20);
  407.  
  408.     GR_grp_5 = GroupObject,
  409.         MUIA_Frame, MUIV_Frame_Group,
  410.         MUIA_Group_Horiz, TRUE,
  411.         Child, Object->TX_label_2,
  412.         Child, Object->Anz_Div,
  413.         Child, Space_16,
  414.     End;
  415.  
  416.     Object->TX_label_3 = TextObject,
  417.         MUIA_Background, MUII_TextBack,
  418.         MUIA_Frame, MUIV_Frame_Text,
  419.         MUIA_Text_Contents, Object->STR_TX_label_3,
  420.         MUIA_Text_PreParse, "\033c",
  421.         MUIA_Text_SetMax, TRUE,
  422.         MUIA_Text_SetMin, TRUE,
  423.     End;
  424.  
  425.     Object->Div_Nr = TextObject,
  426.         MUIA_Weight, 24,
  427.         MUIA_Background, MUII_TextBack,
  428.         MUIA_Frame, MUIV_Frame_Text,
  429.         MUIA_Text_Contents, Object->STR_Div_Nr,
  430.         MUIA_Text_PreParse, "\033c",
  431.         MUIA_Text_SetMin, TRUE,
  432.     End;
  433.  
  434.     Object->Aufg_Div = TextObject,
  435.         MUIA_Weight, 80,
  436.         MUIA_Background, MUII_TextBack,
  437.         MUIA_Frame, MUIV_Frame_Text,
  438.         MUIA_Text_Contents, Object->STR_Aufg_Div,
  439.         MUIA_Text_PreParse, "\033c",
  440.         MUIA_Text_SetMin, TRUE,
  441.     End;
  442.  
  443.     Object->Erg_Div = StringObject,
  444.         MUIA_Frame, MUIV_Frame_String,
  445.         MUIA_String_Accept, "-0123456789",
  446.         MUIA_String_MaxLen, 12,
  447.         MUIA_String_Format, MUIV_String_Format_Center,
  448.     End;
  449.  
  450.     obj_aux3 = Label2(GetMBString(MSG_Erg_Div));
  451.  
  452.     obj_aux2 = GroupObject,
  453.         MUIA_Group_Columns, 2,
  454.         Child, obj_aux3,
  455.         Child, Object->Erg_Div,
  456.     End;
  457.  
  458.     GR_grp_6 = GroupObject,
  459.         MUIA_Frame, MUIV_Frame_Group,
  460.         MUIA_Group_Horiz, TRUE,
  461.         Child, Object->TX_label_3,
  462.         Child, Object->Div_Nr,
  463.         Child, Object->Aufg_Div,
  464.         Child, obj_aux2,
  465.     End;
  466.  
  467.     Object->Div_Erg_tex = TextObject,
  468.         MUIA_Background, MUII_WindowBack,
  469.         MUIA_Frame, MUIV_Frame_Text,
  470.         MUIA_Text_Contents, Object->STR_Div_Erg_tex,
  471.         MUIA_Text_PreParse, "\033c\0338",
  472.         MUIA_Text_SetMin, TRUE,
  473.     End;
  474.  
  475.     Object->Div_Erg = TextObject,
  476.         MUIA_Weight, 21,
  477.         MUIA_Background, MUII_WindowBack,
  478.         MUIA_Frame, MUIV_Frame_Text,
  479.         MUIA_Text_Contents, Object->STR_Div_Erg,
  480.         MUIA_Text_PreParse, "\033c\0338",
  481.         MUIA_Text_SetMin, TRUE,
  482.     End;
  483.  
  484.     Object->Div_Richtig = TextObject,
  485.         MUIA_Weight, 51,
  486.         MUIA_Background, MUII_WindowBack,
  487.         MUIA_Frame, MUIV_Frame_Text,
  488.         MUIA_FrameTitle, GetMBString(MSG_Div_RichtigTitle),
  489.         MUIA_Text_Contents, Object->STR_Div_Richtig,
  490.         MUIA_Text_PreParse, "\033c",
  491.         MUIA_Text_SetMin, TRUE,
  492.     End;
  493.  
  494.     Object->Div_Falsch = TextObject,
  495.         MUIA_Weight, 50,
  496.         MUIA_Background, MUII_WindowBack,
  497.         MUIA_Frame, MUIV_Frame_Text,
  498.         MUIA_FrameTitle, GetMBString(MSG_Div_FalschTitle),
  499.         MUIA_Text_Contents, Object->STR_Div_Falsch,
  500.         MUIA_Text_PreParse, "\033c",
  501.         MUIA_Text_SetMin, TRUE,
  502.     End;
  503.  
  504.     GR_grp_7 = GroupObject,
  505.         MUIA_Frame, MUIV_Frame_Group,
  506.         MUIA_Group_Horiz, TRUE,
  507.         Child, Object->Div_Erg_tex,
  508.         Child, Object->Div_Erg,
  509.         Child, Object->Div_Richtig,
  510.         Child, Object->Div_Falsch,
  511.     End;
  512.  
  513.     GROUP_ROOT_2 = GroupObject,
  514.         MUIA_Frame, MUIV_Frame_Prop,
  515.         MUIA_FrameTitle, GetMBString(MSG_GROUP_ROOT_2Title),
  516.         Child, GR_grp_5,
  517.         Child, GR_grp_6,
  518.         Child, GR_grp_7,
  519.     End;
  520.  
  521.     Object->WI_Divi = WindowObject,
  522.         MUIA_Window_Title, GetMBString(MSG_WI_Divi),
  523.         MUIA_HelpNode, "WI_Divi",
  524.         MUIA_Window_ID, MAKE_ID('2', 'W', 'I', 'N'),
  525.         WindowContents, GROUP_ROOT_2,
  526.     End;
  527.  
  528.     Object->TX_label_4 = TextObject,
  529.         MUIA_Background, MUII_WindowBack,
  530.         MUIA_Text_Contents, Object->STR_TX_label_4,
  531.         MUIA_Text_PreParse, "\033c",
  532.         MUIA_Text_SetMin, TRUE,
  533.     End;
  534.  
  535.     Object->Anz_Addi = StringObject,
  536.         MUIA_Weight, 10,
  537.         MUIA_Frame, MUIV_Frame_String,
  538.         MUIA_String_Contents, "   ",
  539.         MUIA_String_Accept, "0123456789",
  540.         MUIA_String_MaxLen, 8,
  541.         MUIA_String_Format, MUIV_String_Format_Center,
  542.     End;
  543.  
  544.     Space_18 = HSpace(20);
  545.  
  546.     GR_grp_8 = GroupObject,
  547.         MUIA_Frame, MUIV_Frame_Group,
  548.         MUIA_Group_Horiz, TRUE,
  549.         Child, Object->TX_label_4,
  550.         Child, Object->Anz_Addi,
  551.         Child, Space_18,
  552.     End;
  553.  
  554.     Object->TX_label_5 = TextObject,
  555.         MUIA_Background, MUII_TextBack,
  556.         MUIA_Frame, MUIV_Frame_Text,
  557.         MUIA_Text_Contents, Object->STR_TX_label_5,
  558.         MUIA_Text_PreParse, "\033c",
  559.         MUIA_Text_SetMax, TRUE,
  560.         MUIA_Text_SetMin, TRUE,
  561.     End;
  562.  
  563.     Object->Addi_Nr = TextObject,
  564.         MUIA_Weight, 27,
  565.         MUIA_Background, MUII_TextBack,
  566.         MUIA_Frame, MUIV_Frame_Text,
  567.         MUIA_Text_Contents, Object->STR_Addi_Nr,
  568.         MUIA_Text_PreParse, "\033c",
  569.         MUIA_Text_SetMin, TRUE,
  570.     End;
  571.  
  572.     Object->Aufg_Addi = TextObject,
  573.         MUIA_Weight, 80,
  574.         MUIA_Background, MUII_TextBack,
  575.         MUIA_Frame, MUIV_Frame_Text,
  576.         MUIA_Text_Contents, Object->STR_Aufg_Addi,
  577.         MUIA_Text_PreParse, "\033c",
  578.         MUIA_Text_SetMin, TRUE,
  579.     End;
  580.  
  581.     Object->Erg_Addi = StringObject,
  582.         MUIA_Frame, MUIV_Frame_String,
  583.         MUIA_String_Accept, "-0123456789",
  584.         MUIA_String_MaxLen, 12,
  585.         MUIA_String_Format, MUIV_String_Format_Center,
  586.     End;
  587.  
  588.     obj_aux5 = Label2(GetMBString(MSG_Erg_Addi));
  589.  
  590.     obj_aux4 = GroupObject,
  591.         MUIA_Group_Columns, 2,
  592.         Child, obj_aux5,
  593.         Child, Object->Erg_Addi,
  594.     End;
  595.  
  596.     GR_grp_9 = GroupObject,
  597.         MUIA_Frame, MUIV_Frame_Group,
  598.         MUIA_Group_Horiz, TRUE,
  599.         Child, Object->TX_label_5,
  600.         Child, Object->Addi_Nr,
  601.         Child, Object->Aufg_Addi,
  602.         Child, obj_aux4,
  603.     End;
  604.  
  605.     Object->Addi_Erg_tex = TextObject,
  606.         MUIA_Background, MUII_WindowBack,
  607.         MUIA_Frame, MUIV_Frame_Text,
  608.         MUIA_Text_Contents, Object->STR_Addi_Erg_tex,
  609.         MUIA_Text_PreParse, "\033c\0338",
  610.         MUIA_Text_SetMin, TRUE,
  611.     End;
  612.  
  613.     Object->Addi_Erg = TextObject,
  614.         MUIA_Weight, 21,
  615.         MUIA_Background, MUII_WindowBack,
  616.         MUIA_Frame, MUIV_Frame_Text,
  617.         MUIA_Text_Contents, Object->STR_Addi_Erg,
  618.         MUIA_Text_PreParse, "\033c\0338",
  619.         MUIA_Text_SetMin, TRUE,
  620.     End;
  621.  
  622.     Object->Addi_Richtig = TextObject,
  623.         MUIA_Weight, 51,
  624.         MUIA_Background, MUII_WindowBack,
  625.         MUIA_Frame, MUIV_Frame_Text,
  626.         MUIA_FrameTitle, GetMBString(MSG_Addi_RichtigTitle),
  627.         MUIA_Text_Contents, Object->STR_Addi_Richtig,
  628.         MUIA_Text_PreParse, "\033c",
  629.         MUIA_Text_SetMin, TRUE,
  630.     End;
  631.  
  632.     Object->Addi_Falsch = TextObject,
  633.         MUIA_Weight, 50,
  634.         MUIA_Background, MUII_WindowBack,
  635.         MUIA_Frame, MUIV_Frame_Text,
  636.         MUIA_FrameTitle, GetMBString(MSG_Addi_FalschTitle),
  637.         MUIA_Text_Contents, Object->STR_Addi_Falsch,
  638.         MUIA_Text_PreParse, "\033c",
  639.         MUIA_Text_SetMin, TRUE,
  640.     End;
  641.  
  642.     GR_grp_10 = GroupObject,
  643.         MUIA_Frame, MUIV_Frame_Group,
  644.         MUIA_Group_Horiz, TRUE,
  645.         Child, Object->Addi_Erg_tex,
  646.         Child, Object->Addi_Erg,
  647.         Child, Object->Addi_Richtig,
  648.         Child, Object->Addi_Falsch,
  649.     End;
  650.  
  651.     GROUP_ROOT_3 = GroupObject,
  652.         MUIA_Frame, MUIV_Frame_Prop,
  653.         MUIA_FrameTitle, GetMBString(MSG_GROUP_ROOT_3Title),
  654.         Child, GR_grp_8,
  655.         Child, GR_grp_9,
  656.         Child, GR_grp_10,
  657.     End;
  658.  
  659.     Object->WI_Addieren = WindowObject,
  660.         MUIA_Window_Title, GetMBString(MSG_WI_Addieren),
  661.         MUIA_HelpNode, "WI_Addieren",
  662.         MUIA_Window_ID, MAKE_ID('3', 'W', 'I', 'N'),
  663.         WindowContents, GROUP_ROOT_3,
  664.     End;
  665.  
  666.     Object->TX_label_6 = TextObject,
  667.         MUIA_Background, MUII_WindowBack,
  668.         MUIA_Text_Contents, Object->STR_TX_label_6,
  669.         MUIA_Text_PreParse, "\033c",
  670.         MUIA_Text_SetMin, TRUE,
  671.     End;
  672.  
  673.     Object->Anz_Subtr = StringObject,
  674.         MUIA_Weight, 10,
  675.         MUIA_Frame, MUIV_Frame_String,
  676.         MUIA_String_Accept, "0123456789",
  677.         MUIA_String_MaxLen, 8,
  678.         MUIA_String_Format, MUIV_String_Format_Center,
  679.     End;
  680.  
  681.     Space_20 = HSpace(20);
  682.  
  683.     GR_grp_11 = GroupObject,
  684.         MUIA_Frame, MUIV_Frame_Group,
  685.         MUIA_Group_Horiz, TRUE,
  686.         Child, Object->TX_label_6,
  687.         Child, Object->Anz_Subtr,
  688.         Child, Space_20,
  689.     End;
  690.  
  691.     Object->TX_label_7 = TextObject,
  692.         MUIA_Background, MUII_TextBack,
  693.         MUIA_Frame, MUIV_Frame_Text,
  694.         MUIA_Text_Contents, Object->STR_TX_label_7,
  695.         MUIA_Text_PreParse, "\033c",
  696.         MUIA_Text_SetMax, TRUE,
  697.         MUIA_Text_SetMin, TRUE,
  698.     End;
  699.  
  700.     Object->Subtr_Nr = TextObject,
  701.         MUIA_Weight, 27,
  702.         MUIA_Background, MUII_TextBack,
  703.         MUIA_Frame, MUIV_Frame_Text,
  704.         MUIA_Text_Contents, Object->STR_Subtr_Nr,
  705.         MUIA_Text_PreParse, "\033c",
  706.         MUIA_Text_SetMin, TRUE,
  707.     End;
  708.  
  709.     Object->Aufg_Subtr = TextObject,
  710.         MUIA_Weight, 80,
  711.         MUIA_Background, MUII_TextBack,
  712.         MUIA_Frame, MUIV_Frame_Text,
  713.         MUIA_Text_Contents, Object->STR_Aufg_Subtr,
  714.         MUIA_Text_PreParse, "\033c",
  715.         MUIA_Text_SetMin, TRUE,
  716.     End;
  717.  
  718.     Object->Erg_Subtr = StringObject,
  719.         MUIA_Frame, MUIV_Frame_String,
  720.         MUIA_String_Accept, "-0123456789",
  721.         MUIA_String_MaxLen, 12,
  722.         MUIA_String_Format, MUIV_String_Format_Center,
  723.     End;
  724.  
  725.     obj_aux7 = Label2(GetMBString(MSG_Erg_Subtr));
  726.  
  727.     obj_aux6 = GroupObject,
  728.         MUIA_Group_Columns, 2,
  729.         Child, obj_aux7,
  730.         Child, Object->Erg_Subtr,
  731.     End;
  732.  
  733.     GR_grp_12 = GroupObject,
  734.         MUIA_Frame, MUIV_Frame_Group,
  735.         MUIA_Group_Horiz, TRUE,
  736.         Child, Object->TX_label_7,
  737.         Child, Object->Subtr_Nr,
  738.         Child, Object->Aufg_Subtr,
  739.         Child, obj_aux6,
  740.     End;
  741.  
  742.     Object->Subtr_Erg_tex = TextObject,
  743.         MUIA_Background, MUII_WindowBack,
  744.         MUIA_Frame, MUIV_Frame_Text,
  745.         MUIA_Text_Contents, Object->STR_Subtr_Erg_tex,
  746.         MUIA_Text_PreParse, "\033c\0338",
  747.         MUIA_Text_SetMin, TRUE,
  748.     End;
  749.  
  750.     Object->Subtr_Erg = TextObject,
  751.         MUIA_Weight, 21,
  752.         MUIA_Background, MUII_WindowBack,
  753.         MUIA_Frame, MUIV_Frame_Text,
  754.         MUIA_Text_Contents, Object->STR_Subtr_Erg,
  755.         MUIA_Text_PreParse, "\033c\0338",
  756.         MUIA_Text_SetMin, TRUE,
  757.     End;
  758.  
  759.     Object->Subtr_Richtig = TextObject,
  760.         MUIA_Weight, 51,
  761.         MUIA_Background, MUII_WindowBack,
  762.         MUIA_Frame, MUIV_Frame_Text,
  763.         MUIA_FrameTitle, GetMBString(MSG_Subtr_RichtigTitle),
  764.         MUIA_Text_Contents, Object->STR_Subtr_Richtig,
  765.         MUIA_Text_PreParse, "\033c",
  766.         MUIA_Text_SetMin, TRUE,
  767.     End;
  768.  
  769.     Object->Subtr_Falsch = TextObject,
  770.         MUIA_Weight, 50,
  771.         MUIA_Background, MUII_WindowBack,
  772.         MUIA_Frame, MUIV_Frame_Text,
  773.         MUIA_FrameTitle, GetMBString(MSG_Subtr_FalschTitle),
  774.         MUIA_Text_Contents, Object->STR_Subtr_Falsch,
  775.         MUIA_Text_PreParse, "\033c",
  776.         MUIA_Text_SetMin, TRUE,
  777.     End;
  778.  
  779.     GR_grp_13 = GroupObject,
  780.         MUIA_Frame, MUIV_Frame_Group,
  781.         MUIA_Group_Horiz, TRUE,
  782.         Child, Object->Subtr_Erg_tex,
  783.         Child, Object->Subtr_Erg,
  784.         Child, Object->Subtr_Richtig,
  785.         Child, Object->Subtr_Falsch,
  786.     End;
  787.  
  788.     GROUP_ROOT_4 = GroupObject,
  789.         MUIA_Frame, MUIV_Frame_Prop,
  790.         MUIA_FrameTitle, GetMBString(MSG_GROUP_ROOT_4Title),
  791.         Child, GR_grp_11,
  792.         Child, GR_grp_12,
  793.         Child, GR_grp_13,
  794.     End;
  795.  
  796.     Object->WI_Subtraktion = WindowObject,
  797.         MUIA_Window_Title, GetMBString(MSG_WI_Subtraktion),
  798.         MUIA_HelpNode, "WI_Subtraktion",
  799.         MUIA_Window_ID, MAKE_ID('4', 'W', 'I', 'N'),
  800.         WindowContents, GROUP_ROOT_4,
  801.     End;
  802.  
  803.     LA_label_4 = TextObject,
  804.         MUIA_Text_PreParse, "\033r",
  805.         MUIA_Text_Contents, GetMBString(MSG_LA_label_4),
  806.         MUIA_Weight, 50,
  807.         MUIA_InnerLeft, 0,
  808.         MUIA_InnerRight, 0,
  809.     End;
  810.  
  811.     Object->Ausw_Mul_Richtig = TextObject,
  812.         MUIA_Weight, 50,
  813.         MUIA_Background, MUII_TextBack,
  814.         MUIA_Frame, MUIV_Frame_Text,
  815.         MUIA_Text_Contents, Object->STR_Ausw_Mul_Richtig,
  816.         MUIA_Text_PreParse, "\033c",
  817.         MUIA_Text_SetMin, TRUE,
  818.     End;
  819.  
  820.     GR_grp_18 = GroupObject,
  821.         MUIA_Group_Horiz, TRUE,
  822.         Child, LA_label_4,
  823.         Child, Object->Ausw_Mul_Richtig,
  824.     End;
  825.  
  826.     LA_Label_5 = TextObject,
  827.         MUIA_Text_PreParse, "\033r",
  828.         MUIA_Text_Contents, GetMBString(MSG_LA_Label_5),
  829.         MUIA_Weight, 50,
  830.         MUIA_InnerLeft, 0,
  831.         MUIA_InnerRight, 0,
  832.     End;
  833.  
  834.     Object->Ausw_Mul_Falsch = TextObject,
  835.         MUIA_Weight, 50,
  836.         MUIA_Background, MUII_TextBack,
  837.         MUIA_Frame, MUIV_Frame_Text,
  838.         MUIA_Text_Contents, Object->STR_Ausw_Mul_Falsch,
  839.         MUIA_Text_PreParse, "\033c",
  840.         MUIA_Text_SetMin, TRUE,
  841.     End;
  842.  
  843.     GR_grp_19 = GroupObject,
  844.         MUIA_Group_Horiz, TRUE,
  845.         MUIA_Group_SameWidth, TRUE,
  846.         Child, LA_Label_5,
  847.         Child, Object->Ausw_Mul_Falsch,
  848.     End;
  849.  
  850.     Object->Gauge_Mul = GaugeObject,
  851.         GaugeFrame,
  852.         MUIA_Gauge_Horiz, TRUE,
  853.         MUIA_Gauge_InfoText, GetMBString(MSG_Gauge_Mul),
  854.         MUIA_Gauge_Max, 100,
  855.     End;
  856.  
  857.     Scale_0 = ScaleObject,
  858.         MUIA_Scale_Horiz, TRUE,
  859.     End;
  860.  
  861.     GR_grp_17 = GroupObject,
  862.         MUIA_Frame, MUIV_Frame_Prop,
  863.         MUIA_FrameTitle, GetMBString(MSG_GR_grp_17Title),
  864.         MUIA_Group_SameSize, TRUE,
  865.         Child, GR_grp_18,
  866.         Child, GR_grp_19,
  867.         Child, Object->Gauge_Mul,
  868.         Child, Scale_0,
  869.     End;
  870.  
  871.     LA_label_7 = TextObject,
  872.         MUIA_Text_PreParse, "\033r",
  873.         MUIA_Text_Contents, GetMBString(MSG_LA_label_7),
  874.         MUIA_Weight, 50,
  875.         MUIA_InnerLeft, 0,
  876.         MUIA_InnerRight, 0,
  877.     End;
  878.  
  879.     Object->Ausw_Div_Richtig = TextObject,
  880.         MUIA_Weight, 50,
  881.         MUIA_Background, MUII_TextBack,
  882.         MUIA_Frame, MUIV_Frame_Text,
  883.         MUIA_Text_Contents, Object->STR_Ausw_Div_Richtig,
  884.         MUIA_Text_PreParse, "\033c",
  885.         MUIA_Text_SetMin, TRUE,
  886.     End;
  887.  
  888.     GR_grp_21 = GroupObject,
  889.         MUIA_Group_Horiz, TRUE,
  890.         Child, LA_label_7,
  891.         Child, Object->Ausw_Div_Richtig,
  892.     End;
  893.  
  894.     LA_Label_8 = TextObject,
  895.         MUIA_Text_PreParse, "\033r",
  896.         MUIA_Text_Contents, GetMBString(MSG_LA_Label_8),
  897.         MUIA_Weight, 50,
  898.         MUIA_InnerLeft, 0,
  899.         MUIA_InnerRight, 0,
  900.     End;
  901.  
  902.     Object->Ausw_Div_Falsch = TextObject,
  903.         MUIA_Weight, 50,
  904.         MUIA_Background, MUII_TextBack,
  905.         MUIA_Frame, MUIV_Frame_Text,
  906.         MUIA_Text_Contents, Object->STR_Ausw_Div_Falsch,
  907.         MUIA_Text_PreParse, "\033c",
  908.         MUIA_Text_SetMin, TRUE,
  909.     End;
  910.  
  911.     GR_grp_22 = GroupObject,
  912.         MUIA_Group_Horiz, TRUE,
  913.         Child, LA_Label_8,
  914.         Child, Object->Ausw_Div_Falsch,
  915.     End;
  916.  
  917.     Object->Gauge_Div = GaugeObject,
  918.         GaugeFrame,
  919.         MUIA_FixHeight, 10,
  920.         MUIA_Gauge_Horiz, TRUE,
  921.         MUIA_Gauge_InfoText, GetMBString(MSG_Gauge_Div),
  922.         MUIA_Gauge_Max, 100,
  923.     End;
  924.  
  925.     Scale_1 = ScaleObject,
  926.         MUIA_Scale_Horiz, TRUE,
  927.     End;
  928.  
  929.     GR_grp_20 = GroupObject,
  930.         MUIA_Frame, MUIV_Frame_Prop,
  931.         MUIA_FrameTitle, GetMBString(MSG_GR_grp_20Title),
  932.         MUIA_Group_SameSize, TRUE,
  933.         Child, GR_grp_21,
  934.         Child, GR_grp_22,
  935.         Child, Object->Gauge_Div,
  936.         Child, Scale_1,
  937.     End;
  938.  
  939.     LA_label_10 = TextObject,
  940.         MUIA_Text_PreParse, "\033r",
  941.         MUIA_Text_Contents, GetMBString(MSG_LA_label_10),
  942.         MUIA_Weight, 50,
  943.         MUIA_InnerLeft, 0,
  944.         MUIA_InnerRight, 0,
  945.     End;
  946.  
  947.     Object->Ausw_Addi_Richtig = TextObject,
  948.         MUIA_Weight, 50,
  949.         MUIA_Background, MUII_TextBack,
  950.         MUIA_Frame, MUIV_Frame_Text,
  951.         MUIA_Text_Contents, Object->STR_Ausw_Addi_Richtig,
  952.         MUIA_Text_PreParse, "\033c",
  953.         MUIA_Text_SetMin, TRUE,
  954.     End;
  955.  
  956.     GR_grp_24 = GroupObject,
  957.         MUIA_Group_Horiz, TRUE,
  958.         Child, LA_label_10,
  959.         Child, Object->Ausw_Addi_Richtig,
  960.     End;
  961.  
  962.     LA_Label_11 = TextObject,
  963.         MUIA_Text_PreParse, "\033r",
  964.         MUIA_Text_Contents, GetMBString(MSG_LA_Label_11),
  965.         MUIA_Weight, 50,
  966.         MUIA_InnerLeft, 0,
  967.         MUIA_InnerRight, 0,
  968.     End;
  969.  
  970.     Object->Ausw_Addi_Falsch = TextObject,
  971.         MUIA_Weight, 50,
  972.         MUIA_Background, MUII_TextBack,
  973.         MUIA_Frame, MUIV_Frame_Text,
  974.         MUIA_Text_Contents, Object->STR_Ausw_Addi_Falsch,
  975.         MUIA_Text_PreParse, "\033c",
  976.         MUIA_Text_SetMin, TRUE,
  977.     End;
  978.  
  979.     GR_grp_25 = GroupObject,
  980.         MUIA_Group_Horiz, TRUE,
  981.         Child, LA_Label_11,
  982.         Child, Object->Ausw_Addi_Falsch,
  983.     End;
  984.  
  985.     Object->Gauge_Addi = GaugeObject,
  986.         GaugeFrame,
  987.         MUIA_FixHeight, 10,
  988.         MUIA_Gauge_Horiz, TRUE,
  989.         MUIA_Gauge_InfoText, GetMBString(MSG_Gauge_Addi),
  990.         MUIA_Gauge_Max, 100,
  991.     End;
  992.  
  993.     Scale_2 = ScaleObject,
  994.         MUIA_Scale_Horiz, TRUE,
  995.     End;
  996.  
  997.     GR_grp_23 = GroupObject,
  998.         MUIA_Frame, MUIV_Frame_Prop,
  999.         MUIA_FrameTitle, GetMBString(MSG_GR_grp_23Title),
  1000.         MUIA_Group_SameSize, TRUE,
  1001.         Child, GR_grp_24,
  1002.         Child, GR_grp_25,
  1003.         Child, Object->Gauge_Addi,
  1004.         Child, Scale_2,
  1005.     End;
  1006.  
  1007.     LA_label_13 = TextObject,
  1008.         MUIA_Text_PreParse, "\033r",
  1009.         MUIA_Text_Contents, GetMBString(MSG_LA_label_13),
  1010.         MUIA_Weight, 50,
  1011.         MUIA_InnerLeft, 0,
  1012.         MUIA_InnerRight, 0,
  1013.     End;
  1014.  
  1015.     Object->Ausw_Subtr_Richtig = TextObject,
  1016.         MUIA_Weight, 50,
  1017.         MUIA_Background, MUII_TextBack,
  1018.         MUIA_Frame, MUIV_Frame_Text,
  1019.         MUIA_Text_Contents, Object->STR_Ausw_Subtr_Richtig,
  1020.         MUIA_Text_PreParse, "\033c",
  1021.         MUIA_Text_SetMin, TRUE,
  1022.     End;
  1023.  
  1024.     GR_grp_27 = GroupObject,
  1025.         MUIA_Group_Horiz, TRUE,
  1026.         Child, LA_label_13,
  1027.         Child, Object->Ausw_Subtr_Richtig,
  1028.     End;
  1029.  
  1030.     LA_Label_14 = TextObject,
  1031.         MUIA_Text_PreParse, "\033r",
  1032.         MUIA_Text_Contents, GetMBString(MSG_LA_Label_14),
  1033.         MUIA_Weight, 50,
  1034.         MUIA_InnerLeft, 0,
  1035.         MUIA_InnerRight, 0,
  1036.     End;
  1037.  
  1038.     Object->Ausw_Subtr_Falsch = TextObject,
  1039.         MUIA_Weight, 50,
  1040.         MUIA_Background, MUII_TextBack,
  1041.         MUIA_Frame, MUIV_Frame_Text,
  1042.         MUIA_Text_Contents, Object->STR_Ausw_Subtr_Falsch,
  1043.         MUIA_Text_PreParse, "\033c",
  1044.         MUIA_Text_SetMin, TRUE,
  1045.     End;
  1046.  
  1047.     GR_grp_28 = GroupObject,
  1048.         MUIA_Group_Horiz, TRUE,
  1049.         Child, LA_Label_14,
  1050.         Child, Object->Ausw_Subtr_Falsch,
  1051.     End;
  1052.  
  1053.     Object->Gauge_Subtr = GaugeObject,
  1054.         GaugeFrame,
  1055.         MUIA_FixHeight, 10,
  1056.         MUIA_Gauge_Horiz, TRUE,
  1057.         MUIA_Gauge_InfoText, GetMBString(MSG_Gauge_Subtr),
  1058.         MUIA_Gauge_Max, 100,
  1059.     End;
  1060.  
  1061.     Scale_3 = ScaleObject,
  1062.         MUIA_Scale_Horiz, TRUE,
  1063.     End;
  1064.  
  1065.     GR_grp_26 = GroupObject,
  1066.         MUIA_Frame, MUIV_Frame_Prop,
  1067.         MUIA_FrameTitle, GetMBString(MSG_GR_grp_26Title),
  1068.         MUIA_Group_SameSize, TRUE,
  1069.         Child, GR_grp_27,
  1070.         Child, GR_grp_28,
  1071.         Child, Object->Gauge_Subtr,
  1072.         Child, Scale_3,
  1073.     End;
  1074.  
  1075.     GR_grp_16 = GroupObject,
  1076.         MUIA_Group_Columns, 4,
  1077.         MUIA_Group_SameSize, TRUE,
  1078.         Child, GR_grp_17,
  1079.         Child, GR_grp_20,
  1080.         Child, GR_grp_23,
  1081.         Child, GR_grp_26,
  1082.     End;
  1083.  
  1084.     LA_Label_16 = Label(GetMBString(MSG_LA_Label_16));
  1085.  
  1086.     Object->Gesammt_Richtig = TextObject,
  1087.         MUIA_Background, MUII_TextBack,
  1088.         MUIA_Frame, MUIV_Frame_Text,
  1089.         MUIA_Text_Contents, Object->STR_Gesammt_Richtig,
  1090.         MUIA_Text_PreParse, "\033c",
  1091.         MUIA_Text_SetMin, TRUE,
  1092.     End;
  1093.  
  1094.     LA_label_17 = Label(GetMBString(MSG_LA_label_17));
  1095.  
  1096.     Object->Gesammt_Falsch = TextObject,
  1097.         MUIA_Background, MUII_TextBack,
  1098.         MUIA_Frame, MUIV_Frame_Text,
  1099.         MUIA_Text_Contents, Object->STR_Gesammt_Falsch,
  1100.         MUIA_Text_PreParse, "\033c",
  1101.         MUIA_Text_SetMin, TRUE,
  1102.     End;
  1103.  
  1104.     GR_grp_30 = GroupObject,
  1105.         MUIA_Group_Horiz, TRUE,
  1106.         Child, LA_Label_16,
  1107.         Child, Object->Gesammt_Richtig,
  1108.         Child, LA_label_17,
  1109.         Child, Object->Gesammt_Falsch,
  1110.     End;
  1111.  
  1112.     Space_23 = VSpace(16);
  1113.  
  1114.     Object->Gauge_Ges = GaugeObject,
  1115.         GaugeFrame,
  1116.         MUIA_FixHeight, 10,
  1117.         MUIA_Gauge_Horiz, TRUE,
  1118.         MUIA_Gauge_InfoText, GetMBString(MSG_Gauge_Ges),
  1119.         MUIA_Gauge_Max, 100,
  1120.     End;
  1121.  
  1122.     Scale_4 = ScaleObject,
  1123.         MUIA_Scale_Horiz, TRUE,
  1124.     End;
  1125.  
  1126.     GR_grp_31 = GroupObject,
  1127.         Child, Space_23,
  1128.         Child, Object->Gauge_Ges,
  1129.         Child, Scale_4,
  1130.     End;
  1131.  
  1132.     GR_grp_29 = GroupObject,
  1133.         MUIA_Frame, MUIV_Frame_Prop,
  1134.         MUIA_FrameTitle, GetMBString(MSG_GR_grp_29Title),
  1135.         MUIA_Group_Columns, 2,
  1136.         MUIA_Group_SameWidth, TRUE,
  1137.         Child, GR_grp_30,
  1138.         Child, GR_grp_31,
  1139.     End;
  1140.  
  1141.     GROUP_ROOT_5 = GroupObject,
  1142.         MUIA_Frame, MUIV_Frame_String,
  1143.         MUIA_FrameTitle, GetMBString(MSG_GROUP_ROOT_5Title),
  1144.         Child, GR_grp_16,
  1145.         Child, GR_grp_29,
  1146.     End;
  1147.  
  1148.     Object->WI_Ergebnis = WindowObject,
  1149.         MUIA_Window_Title, GetMBString(MSG_WI_Ergebnis),
  1150.         MUIA_HelpNode, "WI_Ergebnis",
  1151.         MUIA_Window_ID, MAKE_ID('5', 'W', 'I', 'N'),
  1152.         WindowContents, GROUP_ROOT_5,
  1153.     End;
  1154.  
  1155.     Object->TX_label_8 = TextObject,
  1156.         MUIA_Background, MUII_TextBack,
  1157.         MUIA_Frame, MUIV_Frame_Text,
  1158.         MUIA_Text_Contents, Object->STR_TX_label_8,
  1159.         MUIA_Text_PreParse, "\033c\0338",
  1160.         MUIA_Text_SetMin, TRUE,
  1161.     End;
  1162.  
  1163.     Space_2 = VSpace(10);
  1164.  
  1165.     Space_0 = HSpace(75);
  1166.  
  1167.     Object->BT_Info_ok = SimpleButton(GetMBString(MSG_BT_Info_ok));
  1168.  
  1169.     Space_1 = HSpace(75);
  1170.  
  1171.     GR_grp_15 = GroupObject,
  1172.         MUIA_Group_Columns, 3,
  1173.         Child, Space_0,
  1174.         Child, Object->BT_Info_ok,
  1175.         Child, Space_1,
  1176.     End;
  1177.  
  1178.     Space_3 = VSpace(10);
  1179.  
  1180.     GR_grp_14 = GroupObject,
  1181.         Child, Object->TX_label_8,
  1182.         Child, Space_2,
  1183.         Child, GR_grp_15,
  1184.         Child, Space_3,
  1185.     End;
  1186.  
  1187.     GROUP_ROOT_6 = GroupObject,
  1188.         MUIA_Background, MUII_ListBack,
  1189.         MUIA_Frame, MUIV_Frame_ImageButton,
  1190.         MUIA_FrameTitle, GetMBString(MSG_GROUP_ROOT_6Title),
  1191.         Child, GR_grp_14,
  1192.     End;
  1193.  
  1194.     Object->WI_info = WindowObject,
  1195.         MUIA_Window_Title, GetMBString(MSG_WI_info),
  1196.         MUIA_HelpNode, "WI_info",
  1197.         MUIA_Window_ID, MAKE_ID('6', 'W', 'I', 'N'),
  1198.         MUIA_Window_CloseGadget, FALSE,
  1199.         MUIA_Window_SizeGadget, FALSE,
  1200.         WindowContents, GROUP_ROOT_6,
  1201.     End;
  1202.  
  1203.     Object->App = ApplicationObject,
  1204.         MUIA_Application_Author, "Jürgen Späth",
  1205.         MUIA_Application_Base, "CALCULATIONTRAINER",
  1206.         MUIA_Application_Title, GetMBString(MSG_Title),
  1207.         MUIA_Application_Version, "$VER: Mui-Calc-trainer 1.6 (05.01.1996)",
  1208.         MUIA_Application_Copyright, GetMBString(MSG_AppCopyright),
  1209.         MUIA_Application_Description, GetMBString(MSG_AppDescription),
  1210.         MUIA_HelpFile, "Calctrainer.guide",
  1211.         SubWindow, Object->WI_Auswahl,
  1212.         SubWindow, Object->WI_Multiplikation,
  1213.         SubWindow, Object->WI_Divi,
  1214.         SubWindow, Object->WI_Addieren,
  1215.         SubWindow, Object->WI_Subtraktion,
  1216.         SubWindow, Object->WI_Ergebnis,
  1217.         SubWindow, Object->WI_info,
  1218.     End;
  1219.  
  1220.  
  1221.     if (!Object->App)
  1222.     {
  1223.         FreeVec(Object);
  1224.         return(NULL);
  1225.     }
  1226.  
  1227.     DoMethod(Object->App,
  1228.         MUIM_Notify, MUIA_Application_Iconified, TRUE,
  1229.         Object->App,
  1230.         3,
  1231.         MUIM_Set, MUIA_Application_Sleep, TRUE
  1232.         );
  1233.  
  1234.     DoMethod(Object->App,
  1235.         MUIM_Notify, MUIA_Application_Iconified, FALSE,
  1236.         Object->App,
  1237.         3,
  1238.         MUIM_Set, MUIA_Application_Sleep, FALSE
  1239.         );
  1240.  
  1241.     DoMethod(MNlabel1ber,
  1242.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1243.         Object->WI_info,
  1244.         3,
  1245.         MUIM_Set, MUIA_Window_Open, TRUE
  1246.         );
  1247.  
  1248.     DoMethod(MNlabel1ber,
  1249.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1250.         Object->WI_info,
  1251.         3,
  1252.         MUIM_Set, MUIA_Window_Activate, TRUE
  1253.         );
  1254.  
  1255.     DoMethod(MNlabel1Punktestand,
  1256.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1257.         Object->WI_Ergebnis,
  1258.         3,
  1259.         MUIM_Set, MUIA_Window_Open, TRUE
  1260.         );
  1261.  
  1262.     DoMethod(MNlabel1Punktestand,
  1263.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1264.         Object->WI_Ergebnis,
  1265.         3,
  1266.         MUIM_Set, MUIA_Window_Activate, TRUE
  1267.         );
  1268.  
  1269.     DoMethod(MNlabel1Beenden,
  1270.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1271.         Object->WI_Multiplikation,
  1272.         3,
  1273.         MUIM_Set, MUIA_Window_Open, FALSE
  1274.         );
  1275.  
  1276.     DoMethod(MNlabel1Beenden,
  1277.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1278.         Object->WI_Divi,
  1279.         3,
  1280.         MUIM_Set, MUIA_Window_Open, FALSE
  1281.         );
  1282.  
  1283.     DoMethod(MNlabel1Beenden,
  1284.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1285.         Object->WI_Addieren,
  1286.         3,
  1287.         MUIM_Set, MUIA_Window_Open, FALSE
  1288.         );
  1289.  
  1290.     DoMethod(MNlabel1Beenden,
  1291.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1292.         Object->WI_Subtraktion,
  1293.         3,
  1294.         MUIM_Set, MUIA_Window_Open, FALSE
  1295.         );
  1296.  
  1297.     DoMethod(MNlabel1Beenden,
  1298.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1299.         Object->WI_Ergebnis,
  1300.         3,
  1301.         MUIM_Set, MUIA_Window_Open, FALSE
  1302.         );
  1303.  
  1304.     DoMethod(MNlabel1Beenden,
  1305.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1306.         Object->WI_info,
  1307.         3,
  1308.         MUIM_Set, MUIA_Window_Open, FALSE
  1309.         );
  1310.  
  1311.     DoMethod(MNlabel1Beenden,
  1312.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1313.         Object->App,
  1314.         2,
  1315.         MUIM_Application_ReturnID, MUIV_Application_ReturnID_Quit
  1316.         );
  1317.  
  1318.     DoMethod(Object->MNlabel1Speichern,
  1319.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1320.         Object->App,
  1321.         2,
  1322.         MUIM_Application_ReturnID, SPEICHERN
  1323.         );
  1324.  
  1325.     DoMethod(Object->MNlabel1Laden,
  1326.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1327.         Object->App,
  1328.         2,
  1329.         MUIM_Application_ReturnID, LADEN
  1330.         );
  1331.  
  1332.     DoMethod(Object->MNlabel1Laden,
  1333.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1334.         Object->App,
  1335.         2,
  1336.         MUIM_Application_ReturnID, BT_AUSWAHL
  1337.         );
  1338.  
  1339.     DoMethod(MNlabel1Addition,
  1340.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1341.         Object->WI_Multiplikation,
  1342.         3,
  1343.         MUIM_Set, MUIA_Window_Open, FALSE
  1344.         );
  1345.  
  1346.     DoMethod(MNlabel1Addition,
  1347.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1348.         Object->WI_Divi,
  1349.         3,
  1350.         MUIM_Set, MUIA_Window_Open, FALSE
  1351.         );
  1352.  
  1353.     DoMethod(MNlabel1Addition,
  1354.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1355.         Object->WI_Subtraktion,
  1356.         3,
  1357.         MUIM_Set, MUIA_Window_Open, FALSE
  1358.         );
  1359.  
  1360.     DoMethod(MNlabel1Addition,
  1361.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1362.         Object->WI_Ergebnis,
  1363.         3,
  1364.         MUIM_Set, MUIA_Window_Open, TRUE
  1365.         );
  1366.  
  1367.     DoMethod(MNlabel1Addition,
  1368.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1369.         Object->WI_Addieren,
  1370.         3,
  1371.         MUIM_Set, MUIA_Window_Open, TRUE
  1372.         );
  1373.  
  1374.     DoMethod(MNlabel1Addition,
  1375.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1376.         Object->Anz_Addi,
  1377.         3,
  1378.         MUIM_Set, MUIA_Disabled, FALSE
  1379.         );
  1380.  
  1381.     DoMethod(MNlabel1Addition,
  1382.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1383.         Object->WI_Addieren,
  1384.         3,
  1385.         MUIM_Set, MUIA_Window_ActiveObject, Object->Anz_Addi
  1386.         );
  1387.  
  1388.     DoMethod(MNlabel1Addition,
  1389.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1390.         Object->App,
  1391.         2,
  1392.         MUIM_Application_ReturnID, BT_AUSWAHL
  1393.         );
  1394.  
  1395.     DoMethod(MNlabel1Addition,
  1396.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1397.         Object->Anz_Addi,
  1398.         3,
  1399.         MUIM_Set, MUIA_String_Contents, GetMBString(MSG_MNlabel1AdditionNotify8)
  1400.         );
  1401.  
  1402.     DoMethod(MNlabel1Addition,
  1403.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1404.         Object->Aufg_Addi,
  1405.         3,
  1406.         MUIM_Set, MUIA_Text_Contents, GetMBString(MSG_MNlabel1AdditionNotify9)
  1407.         );
  1408.  
  1409.     DoMethod(MNlabel1Addition,
  1410.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1411.         Object->Addi_Nr,
  1412.         3,
  1413.         MUIM_Set, MUIA_Text_Contents, GetMBString(MSG_MNlabel1AdditionNotify10)
  1414.         );
  1415.  
  1416.     DoMethod(MNlabel1Addition,
  1417.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1418.         Object->Addi_Erg,
  1419.         3,
  1420.         MUIM_Set, MUIA_Text_Contents, GetMBString(MSG_MNlabel1AdditionNotify11)
  1421.         );
  1422.  
  1423.     DoMethod(MNlabel1Addition,
  1424.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1425.         Object->Erg_Addi,
  1426.         3,
  1427.         MUIM_Set, MUIA_String_Contents, GetMBString(MSG_MNlabel1AdditionNotify12)
  1428.         );
  1429.  
  1430.     DoMethod(MNlabel1Subtraktion,
  1431.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1432.         Object->WI_Multiplikation,
  1433.         3,
  1434.         MUIM_Set, MUIA_Window_Open, FALSE
  1435.         );
  1436.  
  1437.     DoMethod(MNlabel1Subtraktion,
  1438.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1439.         Object->WI_Divi,
  1440.         3,
  1441.         MUIM_Set, MUIA_Window_Open, FALSE
  1442.         );
  1443.  
  1444.     DoMethod(MNlabel1Subtraktion,
  1445.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1446.         Object->WI_Addieren,
  1447.         3,
  1448.         MUIM_Set, MUIA_Window_Open, FALSE
  1449.         );
  1450.  
  1451.     DoMethod(MNlabel1Subtraktion,
  1452.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1453.         Object->WI_Ergebnis,
  1454.         3,
  1455.         MUIM_Set, MUIA_Window_Open, TRUE
  1456.         );
  1457.  
  1458.     DoMethod(MNlabel1Subtraktion,
  1459.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1460.         Object->WI_Subtraktion,
  1461.         3,
  1462.         MUIM_Set, MUIA_Window_Open, TRUE
  1463.         );
  1464.  
  1465.     DoMethod(MNlabel1Subtraktion,
  1466.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1467.         Object->Anz_Subtr,
  1468.         3,
  1469.         MUIM_Set, MUIA_Disabled, FALSE
  1470.         );
  1471.  
  1472.     DoMethod(MNlabel1Subtraktion,
  1473.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1474.         Object->WI_Subtraktion,
  1475.         3,
  1476.         MUIM_Set, MUIA_Window_ActiveObject, Object->Anz_Subtr
  1477.         );
  1478.  
  1479.     DoMethod(MNlabel1Subtraktion,
  1480.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1481.         Object->App,
  1482.         2,
  1483.         MUIM_Application_ReturnID, BT_AUSWAHL
  1484.         );
  1485.  
  1486.     DoMethod(MNlabel1Subtraktion,
  1487.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1488.         Object->Anz_Subtr,
  1489.         3,
  1490.         MUIM_Set, MUIA_String_Contents, GetMBString(MSG_MNlabel1SubtraktionNotify8)
  1491.         );
  1492.  
  1493.     DoMethod(MNlabel1Subtraktion,
  1494.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1495.         Object->Aufg_Subtr,
  1496.         3,
  1497.         MUIM_Set, MUIA_Text_Contents, GetMBString(MSG_MNlabel1SubtraktionNotify9)
  1498.         );
  1499.  
  1500.     DoMethod(MNlabel1Subtraktion,
  1501.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1502.         Object->Subtr_Nr,
  1503.         3,
  1504.         MUIM_Set, MUIA_Text_Contents, GetMBString(MSG_MNlabel1SubtraktionNotify10)
  1505.         );
  1506.  
  1507.     DoMethod(MNlabel1Subtraktion,
  1508.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1509.         Object->Subtr_Erg,
  1510.         3,
  1511.         MUIM_Set, MUIA_Text_Contents, GetMBString(MSG_MNlabel1SubtraktionNotify11)
  1512.         );
  1513.  
  1514.     DoMethod(MNlabel1Subtraktion,
  1515.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1516.         Object->Erg_Subtr,
  1517.         3,
  1518.         MUIM_Set, MUIA_String_Contents, GetMBString(MSG_MNlabel1SubtraktionNotify12)
  1519.         );
  1520.  
  1521.     DoMethod(MNlabel1Multiplikation,
  1522.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1523.         Object->WI_Divi,
  1524.         3,
  1525.         MUIM_Set, MUIA_Window_Open, FALSE
  1526.         );
  1527.  
  1528.     DoMethod(MNlabel1Multiplikation,
  1529.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1530.         Object->WI_Addieren,
  1531.         3,
  1532.         MUIM_Set, MUIA_Window_Open, FALSE
  1533.         );
  1534.  
  1535.     DoMethod(MNlabel1Multiplikation,
  1536.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1537.         Object->WI_Subtraktion,
  1538.         3,
  1539.         MUIM_Set, MUIA_Window_Open, FALSE
  1540.         );
  1541.  
  1542.     DoMethod(MNlabel1Multiplikation,
  1543.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1544.         Object->WI_Ergebnis,
  1545.         3,
  1546.         MUIM_Set, MUIA_Window_Open, TRUE
  1547.         );
  1548.  
  1549.     DoMethod(MNlabel1Multiplikation,
  1550.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1551.         Object->WI_Multiplikation,
  1552.         3,
  1553.         MUIM_Set, MUIA_Window_Open, TRUE
  1554.         );
  1555.  
  1556.     DoMethod(MNlabel1Multiplikation,
  1557.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1558.         Object->Anz_Mul,
  1559.         3,
  1560.         MUIM_Set, MUIA_Disabled, FALSE
  1561.         );
  1562.  
  1563.     DoMethod(MNlabel1Multiplikation,
  1564.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1565.         Object->WI_Multiplikation,
  1566.         3,
  1567.         MUIM_Set, MUIA_Window_ActiveObject, Object->Anz_Mul
  1568.         );
  1569.  
  1570.     DoMethod(MNlabel1Multiplikation,
  1571.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1572.         Object->App,
  1573.         2,
  1574.         MUIM_Application_ReturnID, BT_AUSWAHL
  1575.         );
  1576.  
  1577.     DoMethod(MNlabel1Multiplikation,
  1578.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1579.         Object->Anz_Mul,
  1580.         3,
  1581.         MUIM_Set, MUIA_String_Contents, GetMBString(MSG_MNlabel1MultiplikationNotify8)
  1582.         );
  1583.  
  1584.     DoMethod(MNlabel1Multiplikation,
  1585.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1586.         Object->Aufg_Mul,
  1587.         3,
  1588.         MUIM_Set, MUIA_Text_Contents, GetMBString(MSG_MNlabel1MultiplikationNotify9)
  1589.         );
  1590.  
  1591.     DoMethod(MNlabel1Multiplikation,
  1592.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1593.         Object->Mul_Nr,
  1594.         3,
  1595.         MUIM_Set, MUIA_Text_Contents, GetMBString(MSG_MNlabel1MultiplikationNotify10)
  1596.         );
  1597.  
  1598.     DoMethod(MNlabel1Multiplikation,
  1599.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1600.         Object->Mul_Erg,
  1601.         3,
  1602.         MUIM_Set, MUIA_Text_Contents, GetMBString(MSG_MNlabel1MultiplikationNotify11)
  1603.         );
  1604.  
  1605.     DoMethod(MNlabel1Multiplikation,
  1606.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1607.         Object->Erg_Mul,
  1608.         3,
  1609.         MUIM_Set, MUIA_String_Contents, GetMBString(MSG_MNlabel1MultiplikationNotify12)
  1610.         );
  1611.  
  1612.     DoMethod(MNlabel1Division,
  1613.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1614.         Object->WI_Multiplikation,
  1615.         3,
  1616.         MUIM_Set, MUIA_Window_Open, FALSE
  1617.         );
  1618.  
  1619.     DoMethod(MNlabel1Division,
  1620.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1621.         Object->WI_Addieren,
  1622.         3,
  1623.         MUIM_Set, MUIA_Window_Open, FALSE
  1624.         );
  1625.  
  1626.     DoMethod(MNlabel1Division,
  1627.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1628.         Object->WI_Subtraktion,
  1629.         3,
  1630.         MUIM_Set, MUIA_Window_Open, FALSE
  1631.         );
  1632.  
  1633.     DoMethod(MNlabel1Division,
  1634.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1635.         Object->WI_Ergebnis,
  1636.         3,
  1637.         MUIM_Set, MUIA_Window_Open, TRUE
  1638.         );
  1639.  
  1640.     DoMethod(MNlabel1Division,
  1641.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1642.         Object->WI_Divi,
  1643.         3,
  1644.         MUIM_Set, MUIA_Window_Open, TRUE
  1645.         );
  1646.  
  1647.     DoMethod(MNlabel1Division,
  1648.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1649.         Object->Anz_Div,
  1650.         3,
  1651.         MUIM_Set, MUIA_Disabled, FALSE
  1652.         );
  1653.  
  1654.     DoMethod(MNlabel1Division,
  1655.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1656.         Object->WI_Divi,
  1657.         3,
  1658.         MUIM_Set, MUIA_Window_ActiveObject, Object->Anz_Div
  1659.         );
  1660.  
  1661.     DoMethod(MNlabel1Division,
  1662.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1663.         Object->App,
  1664.         2,
  1665.         MUIM_Application_ReturnID, BT_AUSWAHL
  1666.         );
  1667.  
  1668.     DoMethod(MNlabel1Division,
  1669.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1670.         Object->Anz_Div,
  1671.         3,
  1672.         MUIM_Set, MUIA_String_Contents, GetMBString(MSG_MNlabel1DivisionNotify8)
  1673.         );
  1674.  
  1675.     DoMethod(MNlabel1Division,
  1676.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1677.         Object->Aufg_Div,
  1678.         3,
  1679.         MUIM_Set, MUIA_Text_Contents, GetMBString(MSG_MNlabel1DivisionNotify9)
  1680.         );
  1681.  
  1682.     DoMethod(MNlabel1Division,
  1683.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1684.         Object->Div_Nr,
  1685.         3,
  1686.         MUIM_Set, MUIA_Text_Contents, GetMBString(MSG_MNlabel1DivisionNotify10)
  1687.         );
  1688.  
  1689.     DoMethod(MNlabel1Division,
  1690.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1691.         Object->Div_Erg,
  1692.         3,
  1693.         MUIM_Set, MUIA_Text_Contents, GetMBString(MSG_MNlabel1DivisionNotify11)
  1694.         );
  1695.  
  1696.     DoMethod(MNlabel1Division,
  1697.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  1698.         Object->Erg_Div,
  1699.         3,
  1700.         MUIM_Set, MUIA_String_Contents, GetMBString(MSG_MNlabel1DivisionNotify12)
  1701.         );
  1702.  
  1703.     DoMethod(Object->WI_Auswahl,
  1704.         MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
  1705.         Object->WI_Auswahl,
  1706.         3,
  1707.         MUIM_Set, MUIA_Window_Open, FALSE
  1708.         );
  1709.  
  1710.     DoMethod(Object->WI_Auswahl,
  1711.         MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
  1712.         Object->App,
  1713.         2,
  1714.         MUIM_Application_ReturnID, MUIV_Application_ReturnID_Quit
  1715.         );
  1716.  
  1717.     DoMethod(Object->BT_Multi,
  1718.         MUIM_Notify, MUIA_Pressed, FALSE,
  1719.         Object->WI_Divi,
  1720.         3,
  1721.         MUIM_Set, MUIA_Window_Open, FALSE
  1722.         );
  1723.  
  1724.     DoMethod(Object->BT_Multi,
  1725.         MUIM_Notify, MUIA_Pressed, FALSE,
  1726.         Object->WI_Addieren,
  1727.         3,
  1728.         MUIM_Set, MUIA_Window_Open, FALSE
  1729.         );
  1730.  
  1731.     DoMethod(Object->BT_Multi,
  1732.         MUIM_Notify, MUIA_Pressed, FALSE,
  1733.         Object->WI_Subtraktion,
  1734.         3,
  1735.         MUIM_Set, MUIA_Window_Open, FALSE
  1736.         );
  1737.  
  1738.     DoMethod(Object->BT_Multi,
  1739.         MUIM_Notify, MUIA_Pressed, FALSE,
  1740.         Object->Anz_Mul,
  1741.         3,
  1742.         MUIM_Set, MUIA_Disabled, FALSE
  1743.         );
  1744.  
  1745.     DoMethod(Object->BT_Multi,
  1746.         MUIM_Notify, MUIA_Pressed, FALSE,
  1747.         Object->Erg_Mul,
  1748.         3,
  1749.         MUIM_Set, MUIA_Disabled, TRUE
  1750.         );
  1751.  
  1752.     DoMethod(Object->BT_Multi,
  1753.         MUIM_Notify, MUIA_Pressed, FALSE,
  1754.         Object->Mul_Erg_tex,
  1755.         3,
  1756.         MUIM_Set, MUIA_Text_Contents, GetMBString(MSG_BT_MultiNotify5)
  1757.         );
  1758.  
  1759.     DoMethod(Object->BT_Multi,
  1760.         MUIM_Notify, MUIA_Pressed, FALSE,
  1761.         Object->Anz_Mul,
  1762.         3,
  1763.         MUIM_Set, MUIA_String_Contents, GetMBString(MSG_BT_MultiNotify6)
  1764.         );
  1765.  
  1766.     DoMethod(Object->BT_Multi,
  1767.         MUIM_Notify, MUIA_Pressed, FALSE,
  1768.         Object->Aufg_Mul,
  1769.         3,
  1770.         MUIM_Set, MUIA_Text_Contents, GetMBString(MSG_BT_MultiNotify7)
  1771.         );
  1772.  
  1773.     DoMethod(Object->BT_Multi,
  1774.         MUIM_Notify, MUIA_Pressed, FALSE,
  1775.         Object->Mul_Nr,
  1776.         3,
  1777.         MUIM_Set, MUIA_Text_Contents, GetMBString(MSG_BT_MultiNotify8)
  1778.         );
  1779.  
  1780.     DoMethod(Object->BT_Multi,
  1781.         MUIM_Notify, MUIA_Pressed, FALSE,
  1782.         Object->Mul_Erg,
  1783.         3,
  1784.         MUIM_Set, MUIA_Text_Contents, GetMBString(MSG_BT_MultiNotify9)
  1785.         );
  1786.  
  1787.     DoMethod(Object->BT_Multi,
  1788.         MUIM_Notify, MUIA_Pressed, FALSE,
  1789.         Object->Erg_Mul,
  1790.         3,
  1791.         MUIM_Set, MUIA_String_Contents, GetMBString(MSG_BT_MultiNotify10)
  1792.         );
  1793.  
  1794.     DoMethod(Object->BT_Multi,
  1795.         MUIM_Notify, MUIA_Pressed, FALSE,
  1796.         Object->WI_Ergebnis,
  1797.         3,
  1798.         MUIM_Set, MUIA_Window_Open, TRUE
  1799.         );
  1800.  
  1801.     DoMethod(Object->BT_Multi,
  1802.         MUIM_Notify, MUIA_Pressed, FALSE,
  1803.         Object->WI_Multiplikation,
  1804.         3,
  1805.         MUIM_Set, MUIA_Window_Open, TRUE
  1806.         );
  1807.  
  1808.     DoMethod(Object->BT_Multi,
  1809.         MUIM_Notify, MUIA_Pressed, FALSE,
  1810.         Object->WI_Multiplikation,
  1811.         3,
  1812.         MUIM_Set, MUIA_Window_ActiveObject, Object->Anz_Mul
  1813.         );
  1814.  
  1815.     DoMethod(Object->BT_Multi,
  1816.         MUIM_Notify, MUIA_Pressed, FALSE,
  1817.         Object->App,
  1818.         2,
  1819.         MUIM_Application_ReturnID, BT_AUSWAHL
  1820.         );
  1821.  
  1822.     DoMethod(Object->BT_Divi,
  1823.         MUIM_Notify, MUIA_Pressed, FALSE,
  1824.         Object->WI_Multiplikation,
  1825.         3,
  1826.         MUIM_Set, MUIA_Window_Open, FALSE
  1827.         );
  1828.  
  1829.     DoMethod(Object->BT_Divi,
  1830.         MUIM_Notify, MUIA_Pressed, FALSE,
  1831.         Object->WI_Addieren,
  1832.         3,
  1833.         MUIM_Set, MUIA_Window_Open, FALSE
  1834.         );
  1835.  
  1836.     DoMethod(Object->BT_Divi,
  1837.         MUIM_Notify, MUIA_Pressed, FALSE,
  1838.         Object->WI_Subtraktion,
  1839.         3,
  1840.         MUIM_Set, MUIA_Window_Open, FALSE
  1841.         );
  1842.  
  1843.     DoMethod(Object->BT_Divi,
  1844.         MUIM_Notify, MUIA_Pressed, FALSE,
  1845.         Object->Anz_Div,
  1846.         3,
  1847.         MUIM_Set, MUIA_Disabled, FALSE
  1848.         );
  1849.  
  1850.     DoMethod(Object->BT_Divi,
  1851.         MUIM_Notify, MUIA_Pressed, FALSE,
  1852.         Object->Erg_Div,
  1853.         3,
  1854.         MUIM_Set, MUIA_Disabled, TRUE
  1855.         );
  1856.  
  1857.     DoMethod(Object->BT_Divi,
  1858.         MUIM_Notify, MUIA_Pressed, FALSE,
  1859.         Object->Div_Erg_tex,
  1860.         3,
  1861.         MUIM_Set, MUIA_Text_Contents, GetMBString(MSG_BT_DiviNotify5)
  1862.         );
  1863.  
  1864.     DoMethod(Object->BT_Divi,
  1865.         MUIM_Notify, MUIA_Pressed, FALSE,
  1866.         Object->Anz_Div,
  1867.         3,
  1868.         MUIM_Set, MUIA_String_Contents, GetMBString(MSG_BT_DiviNotify6)
  1869.         );
  1870.  
  1871.     DoMethod(Object->BT_Divi,
  1872.         MUIM_Notify, MUIA_Pressed, FALSE,
  1873.         Object->Aufg_Div,
  1874.         3,
  1875.         MUIM_Set, MUIA_Text_Contents, GetMBString(MSG_BT_DiviNotify7)
  1876.         );
  1877.  
  1878.     DoMethod(Object->BT_Divi,
  1879.         MUIM_Notify, MUIA_Pressed, FALSE,
  1880.         Object->Div_Nr,
  1881.         3,
  1882.         MUIM_Set, MUIA_Text_Contents, GetMBString(MSG_BT_DiviNotify8)
  1883.         );
  1884.  
  1885.     DoMethod(Object->BT_Divi,
  1886.         MUIM_Notify, MUIA_Pressed, FALSE,
  1887.         Object->Div_Erg,
  1888.         3,
  1889.         MUIM_Set, MUIA_Text_Contents, GetMBString(MSG_BT_DiviNotify9)
  1890.         );
  1891.  
  1892.     DoMethod(Object->BT_Divi,
  1893.         MUIM_Notify, MUIA_Pressed, FALSE,
  1894.         Object->Erg_Div,
  1895.         3,
  1896.         MUIM_Set, MUIA_String_Contents, GetMBString(MSG_BT_DiviNotify10)
  1897.         );
  1898.  
  1899.     DoMethod(Object->BT_Divi,
  1900.         MUIM_Notify, MUIA_Pressed, FALSE,
  1901.         Object->WI_Ergebnis,
  1902.         3,
  1903.         MUIM_Set, MUIA_Window_Open, TRUE
  1904.         );
  1905.  
  1906.     DoMethod(Object->BT_Divi,
  1907.         MUIM_Notify, MUIA_Pressed, FALSE,
  1908.         Object->WI_Divi,
  1909.         3,
  1910.         MUIM_Set, MUIA_Window_Open, TRUE
  1911.         );
  1912.  
  1913.     DoMethod(Object->BT_Divi,
  1914.         MUIM_Notify, MUIA_Pressed, FALSE,
  1915.         Object->WI_Divi,
  1916.         3,
  1917.         MUIM_Set, MUIA_Window_ActiveObject, Object->Anz_Div
  1918.         );
  1919.  
  1920.     DoMethod(Object->BT_Divi,
  1921.         MUIM_Notify, MUIA_Pressed, FALSE,
  1922.         Object->App,
  1923.         2,
  1924.         MUIM_Application_ReturnID, BT_AUSWAHL
  1925.         );
  1926.  
  1927.     DoMethod(Object->BT_Addi,
  1928.         MUIM_Notify, MUIA_Pressed, FALSE,
  1929.         Object->WI_Multiplikation,
  1930.         3,
  1931.         MUIM_Set, MUIA_Window_Open, FALSE
  1932.         );
  1933.  
  1934.     DoMethod(Object->BT_Addi,
  1935.         MUIM_Notify, MUIA_Pressed, FALSE,
  1936.         Object->WI_Divi,
  1937.         3,
  1938.         MUIM_Set, MUIA_Window_Open, FALSE
  1939.         );
  1940.  
  1941.     DoMethod(Object->BT_Addi,
  1942.         MUIM_Notify, MUIA_Pressed, FALSE,
  1943.         Object->WI_Subtraktion,
  1944.         3,
  1945.         MUIM_Set, MUIA_Window_Open, FALSE
  1946.         );
  1947.  
  1948.     DoMethod(Object->BT_Addi,
  1949.         MUIM_Notify, MUIA_Pressed, FALSE,
  1950.         Object->Anz_Addi,
  1951.         3,
  1952.         MUIM_Set, MUIA_Disabled, FALSE
  1953.         );
  1954.  
  1955.     DoMethod(Object->BT_Addi,
  1956.         MUIM_Notify, MUIA_Pressed, FALSE,
  1957.         Object->Erg_Addi,
  1958.         3,
  1959.         MUIM_Set, MUIA_Disabled, TRUE
  1960.         );
  1961.  
  1962.     DoMethod(Object->BT_Addi,
  1963.         MUIM_Notify, MUIA_Pressed, FALSE,
  1964.         Object->Addi_Erg_tex,
  1965.         3,
  1966.         MUIM_Set, MUIA_Text_Contents, GetMBString(MSG_BT_AddiNotify5)
  1967.         );
  1968.  
  1969.     DoMethod(Object->BT_Addi,
  1970.         MUIM_Notify, MUIA_Pressed, FALSE,
  1971.         Object->Anz_Addi,
  1972.         3,
  1973.         MUIM_Set, MUIA_String_Contents, GetMBString(MSG_BT_AddiNotify6)
  1974.         );
  1975.  
  1976.     DoMethod(Object->BT_Addi,
  1977.         MUIM_Notify, MUIA_Pressed, FALSE,
  1978.         Object->Aufg_Addi,
  1979.         3,
  1980.         MUIM_Set, MUIA_Text_Contents, GetMBString(MSG_BT_AddiNotify7)
  1981.         );
  1982.  
  1983.     DoMethod(Object->BT_Addi,
  1984.         MUIM_Notify, MUIA_Pressed, FALSE,
  1985.         Object->Addi_Nr,
  1986.         3,
  1987.         MUIM_Set, MUIA_Text_Contents, GetMBString(MSG_BT_AddiNotify8)
  1988.         );
  1989.  
  1990.     DoMethod(Object->BT_Addi,
  1991.         MUIM_Notify, MUIA_Pressed, FALSE,
  1992.         Object->Addi_Erg,
  1993.         3,
  1994.         MUIM_Set, MUIA_Text_Contents, GetMBString(MSG_BT_AddiNotify9)
  1995.         );
  1996.  
  1997.     DoMethod(Object->BT_Addi,
  1998.         MUIM_Notify, MUIA_Pressed, FALSE,
  1999.         Object->Erg_Addi,
  2000.         3,
  2001.         MUIM_Set, MUIA_String_Contents, GetMBString(MSG_BT_AddiNotify10)
  2002.         );
  2003.  
  2004.     DoMethod(Object->BT_Addi,
  2005.         MUIM_Notify, MUIA_Pressed, FALSE,
  2006.         Object->WI_Ergebnis,
  2007.         3,
  2008.         MUIM_Set, MUIA_Window_Open, TRUE
  2009.         );
  2010.  
  2011.     DoMethod(Object->BT_Addi,
  2012.         MUIM_Notify, MUIA_Pressed, FALSE,
  2013.         Object->WI_Addieren,
  2014.         3,
  2015.         MUIM_Set, MUIA_Window_Open, TRUE
  2016.         );
  2017.  
  2018.     DoMethod(Object->BT_Addi,
  2019.         MUIM_Notify, MUIA_Pressed, FALSE,
  2020.         Object->WI_Addieren,
  2021.         3,
  2022.         MUIM_Set, MUIA_Window_ActiveObject, Object->Anz_Addi
  2023.         );
  2024.  
  2025.     DoMethod(Object->BT_Addi,
  2026.         MUIM_Notify, MUIA_Pressed, FALSE,
  2027.         Object->App,
  2028.         2,
  2029.         MUIM_Application_ReturnID, BT_AUSWAHL
  2030.         );
  2031.  
  2032.     DoMethod(Object->BT_Subtr,
  2033.         MUIM_Notify, MUIA_Pressed, FALSE,
  2034.         Object->WI_Multiplikation,
  2035.         3,
  2036.         MUIM_Set, MUIA_Window_Open, FALSE
  2037.         );
  2038.  
  2039.     DoMethod(Object->BT_Subtr,
  2040.         MUIM_Notify, MUIA_Pressed, FALSE,
  2041.         Object->WI_Divi,
  2042.         3,
  2043.         MUIM_Set, MUIA_Window_Open, FALSE
  2044.         );
  2045.  
  2046.     DoMethod(Object->BT_Subtr,
  2047.         MUIM_Notify, MUIA_Pressed, FALSE,
  2048.         Object->WI_Addieren,
  2049.         3,
  2050.         MUIM_Set, MUIA_Window_Open, FALSE
  2051.         );
  2052.  
  2053.     DoMethod(Object->BT_Subtr,
  2054.         MUIM_Notify, MUIA_Pressed, FALSE,
  2055.         Object->Anz_Subtr,
  2056.         3,
  2057.         MUIM_Set, MUIA_Disabled, FALSE
  2058.         );
  2059.  
  2060.     DoMethod(Object->BT_Subtr,
  2061.         MUIM_Notify, MUIA_Pressed, FALSE,
  2062.         Object->Erg_Subtr,
  2063.         3,
  2064.         MUIM_Set, MUIA_Disabled, TRUE
  2065.         );
  2066.  
  2067.     DoMethod(Object->BT_Subtr,
  2068.         MUIM_Notify, MUIA_Pressed, FALSE,
  2069.         Object->Subtr_Erg_tex,
  2070.         3,
  2071.         MUIM_Set, MUIA_Text_Contents, GetMBString(MSG_BT_SubtrNotify5)
  2072.         );
  2073.  
  2074.     DoMethod(Object->BT_Subtr,
  2075.         MUIM_Notify, MUIA_Pressed, FALSE,
  2076.         Object->Anz_Subtr,
  2077.         3,
  2078.         MUIM_Set, MUIA_String_Contents, GetMBString(MSG_BT_SubtrNotify6)
  2079.         );
  2080.  
  2081.     DoMethod(Object->BT_Subtr,
  2082.         MUIM_Notify, MUIA_Pressed, FALSE,
  2083.         Object->Aufg_Subtr,
  2084.         3,
  2085.         MUIM_Set, MUIA_Text_Contents, GetMBString(MSG_BT_SubtrNotify7)
  2086.         );
  2087.  
  2088.     DoMethod(Object->BT_Subtr,
  2089.         MUIM_Notify, MUIA_Pressed, FALSE,
  2090.         Object->Subtr_Nr,
  2091.         3,
  2092.         MUIM_Set, MUIA_Text_Contents, GetMBString(MSG_BT_SubtrNotify8)
  2093.         );
  2094.  
  2095.     DoMethod(Object->BT_Subtr,
  2096.         MUIM_Notify, MUIA_Pressed, FALSE,
  2097.         Object->Subtr_Erg,
  2098.         3,
  2099.         MUIM_Set, MUIA_Text_Contents, GetMBString(MSG_BT_SubtrNotify9)
  2100.         );
  2101.  
  2102.     DoMethod(Object->BT_Subtr,
  2103.         MUIM_Notify, MUIA_Pressed, FALSE,
  2104.         Object->Erg_Subtr,
  2105.         3,
  2106.         MUIM_Set, MUIA_String_Contents, GetMBString(MSG_BT_SubtrNotify10)
  2107.         );
  2108.  
  2109.     DoMethod(Object->BT_Subtr,
  2110.         MUIM_Notify, MUIA_Pressed, FALSE,
  2111.         Object->WI_Ergebnis,
  2112.         3,
  2113.         MUIM_Set, MUIA_Window_Open, TRUE
  2114.         );
  2115.  
  2116.     DoMethod(Object->BT_Subtr,
  2117.         MUIM_Notify, MUIA_Pressed, FALSE,
  2118.         Object->WI_Subtraktion,
  2119.         3,
  2120.         MUIM_Set, MUIA_Window_Open, TRUE
  2121.         );
  2122.  
  2123.     DoMethod(Object->BT_Subtr,
  2124.         MUIM_Notify, MUIA_Pressed, FALSE,
  2125.         Object->WI_Subtraktion,
  2126.         3,
  2127.         MUIM_Set, MUIA_Window_ActiveObject, Object->Anz_Subtr
  2128.         );
  2129.  
  2130.     DoMethod(Object->BT_Subtr,
  2131.         MUIM_Notify, MUIA_Pressed, FALSE,
  2132.         Object->App,
  2133.         2,
  2134.         MUIM_Application_ReturnID, BT_AUSWAHL
  2135.         );
  2136.  
  2137.     DoMethod(Object->BT_Erg,
  2138.         MUIM_Notify, MUIA_Pressed, FALSE,
  2139.         Object->WI_Ergebnis,
  2140.         3,
  2141.         MUIM_Set, MUIA_Window_Open, TRUE
  2142.         );
  2143.  
  2144.     DoMethod(Object->BT_Erg,
  2145.         MUIM_Notify, MUIA_Pressed, FALSE,
  2146.         Object->WI_Ergebnis,
  2147.         3,
  2148.         MUIM_Set, MUIA_Window_Activate, TRUE
  2149.         );
  2150.  
  2151.     DoMethod(Object->BT_Erg,
  2152.         MUIM_Notify, MUIA_Pressed, FALSE,
  2153.         Object->App,
  2154.         2,
  2155.         MUIM_Application_ReturnID, BT_AUSWAHL
  2156.         );
  2157.  
  2158.     DoMethod(Object->BT_Ende,
  2159.         MUIM_Notify, MUIA_Pressed, FALSE,
  2160.         Object->WI_Auswahl,
  2161.         3,
  2162.         MUIM_Set, MUIA_Window_Open, FALSE
  2163.         );
  2164.  
  2165.     DoMethod(Object->BT_Ende,
  2166.         MUIM_Notify, MUIA_Pressed, FALSE,
  2167.         Object->WI_Multiplikation,
  2168.         3,
  2169.         MUIM_Set, MUIA_Window_Open, FALSE
  2170.         );
  2171.  
  2172.     DoMethod(Object->BT_Ende,
  2173.         MUIM_Notify, MUIA_Pressed, FALSE,
  2174.         Object->WI_Divi,
  2175.         3,
  2176.         MUIM_Set, MUIA_Window_Open, FALSE
  2177.         );
  2178.  
  2179.     DoMethod(Object->BT_Ende,
  2180.         MUIM_Notify, MUIA_Pressed, FALSE,
  2181.         Object->WI_Addieren,
  2182.         3,
  2183.         MUIM_Set, MUIA_Window_Open, FALSE
  2184.         );
  2185.  
  2186.     DoMethod(Object->BT_Ende,
  2187.         MUIM_Notify, MUIA_Pressed, FALSE,
  2188.         Object->WI_Subtraktion,
  2189.         3,
  2190.         MUIM_Set, MUIA_Window_Open, FALSE
  2191.         );
  2192.  
  2193.     DoMethod(Object->BT_Ende,
  2194.         MUIM_Notify, MUIA_Pressed, FALSE,
  2195.         Object->WI_Ergebnis,
  2196.         3,
  2197.         MUIM_Set, MUIA_Window_Open, FALSE
  2198.         );
  2199.  
  2200.     DoMethod(Object->BT_Ende,
  2201.         MUIM_Notify, MUIA_Pressed, FALSE,
  2202.         Object->WI_info,
  2203.         3,
  2204.         MUIM_Set, MUIA_Window_Open, FALSE
  2205.         );
  2206.  
  2207.     DoMethod(Object->BT_Ende,
  2208.         MUIM_Notify, MUIA_Pressed, FALSE,
  2209.         Object->App,
  2210.         2,
  2211.         MUIM_Application_ReturnID, MUIV_Application_ReturnID_Quit
  2212.         );
  2213.  
  2214.     DoMethod(Object->WI_Auswahl,
  2215.         MUIM_Window_SetCycleChain, Object->BT_Multi,
  2216.         Object->BT_Divi,
  2217.         Object->BT_Addi,
  2218.         Object->BT_Subtr,
  2219.         Object->BT_Erg,
  2220.         Object->BT_Ende,
  2221.         0
  2222.         );
  2223.  
  2224.     DoMethod(Object->WI_Multiplikation,
  2225.         MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
  2226.         Object->WI_Multiplikation,
  2227.         3,
  2228.         MUIM_Set, MUIA_Window_Open, FALSE
  2229.         );
  2230.  
  2231.     DoMethod(Object->WI_Multiplikation,
  2232.         MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
  2233.         Object->WI_Auswahl,
  2234.         3,
  2235.         MUIM_Set, MUIA_Window_Activate, TRUE
  2236.         );
  2237.  
  2238.     DoMethod(Object->Anz_Mul,
  2239.         MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
  2240.         Object->App,
  2241.         2,
  2242.         MUIM_Application_ReturnID, ANZ_MUL
  2243.         );
  2244.  
  2245.     DoMethod(Object->Anz_Mul,
  2246.         MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
  2247.         Object->Anz_Mul,
  2248.         3,
  2249.         MUIM_Set, MUIA_Disabled, TRUE
  2250.         );
  2251.  
  2252.     DoMethod(Object->Anz_Mul,
  2253.         MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
  2254.         Object->Erg_Mul,
  2255.         3,
  2256.         MUIM_Set, MUIA_Disabled, FALSE
  2257.         );
  2258.  
  2259.     DoMethod(Object->Anz_Mul,
  2260.         MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
  2261.         Object->WI_Multiplikation,
  2262.         3,
  2263.         MUIM_Set, MUIA_Window_ActiveObject, Object->Erg_Mul
  2264.         );
  2265.  
  2266.     DoMethod(Object->Erg_Mul,
  2267.         MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
  2268.         Object->App,
  2269.         2,
  2270.         MUIM_Application_ReturnID, ERG_MUL
  2271.         );
  2272.  
  2273.     DoMethod(Object->Erg_Mul,
  2274.         MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
  2275.         Object->App,
  2276.         2,
  2277.         MUIM_Application_ReturnID, BT_AUSWAHL
  2278.         );
  2279.  
  2280.     DoMethod(Object->Erg_Mul,
  2281.         MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
  2282.         Object->WI_Multiplikation,
  2283.         3,
  2284.         MUIM_Set, MUIA_Window_ActiveObject, Object->Erg_Mul
  2285.         );
  2286.  
  2287.     DoMethod(Object->Mul_Richtig,
  2288.         MUIM_Notify, MUIA_Text_Contents, MUIV_EveryTime,
  2289.         Object->Ausw_Mul_Richtig,
  2290.         3,
  2291.         MUIM_Set, MUIA_Text_Contents, MUIV_TriggerValue
  2292.         );
  2293.  
  2294.     DoMethod(Object->Mul_Falsch,
  2295.         MUIM_Notify, MUIA_Text_Contents, MUIV_EveryTime,
  2296.         Object->Ausw_Mul_Falsch,
  2297.         3,
  2298.         MUIM_Set, MUIA_Text_Contents, MUIV_TriggerValue
  2299.         );
  2300.  
  2301.     DoMethod(Object->WI_Multiplikation,
  2302.         MUIM_Window_SetCycleChain, Object->Anz_Mul,
  2303.         Object->Erg_Mul,
  2304.         0
  2305.         );
  2306.  
  2307.     DoMethod(Object->WI_Divi,
  2308.         MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
  2309.         Object->WI_Divi,
  2310.         3,
  2311.         MUIM_Set, MUIA_Window_Open, FALSE
  2312.         );
  2313.  
  2314.     DoMethod(Object->WI_Divi,
  2315.         MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
  2316.         Object->WI_Auswahl,
  2317.         3,
  2318.         MUIM_Set, MUIA_Window_Activate, TRUE
  2319.         );
  2320.  
  2321.     DoMethod(Object->Anz_Div,
  2322.         MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
  2323.         Object->Anz_Div,
  2324.         3,
  2325.         MUIM_Set, MUIA_Disabled, TRUE
  2326.         );
  2327.  
  2328.     DoMethod(Object->Anz_Div,
  2329.         MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
  2330.         Object->App,
  2331.         2,
  2332.         MUIM_Application_ReturnID, ANZ_DIV
  2333.         );
  2334.  
  2335.     DoMethod(Object->Anz_Div,
  2336.         MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
  2337.         Object->Erg_Div,
  2338.         3,
  2339.         MUIM_Set, MUIA_Disabled, FALSE
  2340.         );
  2341.  
  2342.     DoMethod(Object->Anz_Div,
  2343.         MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
  2344.         Object->WI_Divi,
  2345.         3,
  2346.         MUIM_Set, MUIA_Window_ActiveObject, Object->Erg_Div
  2347.         );
  2348.  
  2349.     DoMethod(Object->Erg_Div,
  2350.         MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
  2351.         Object->App,
  2352.         2,
  2353.         MUIM_Application_ReturnID, ERG_DIV
  2354.         );
  2355.  
  2356.     DoMethod(Object->Erg_Div,
  2357.         MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
  2358.         Object->App,
  2359.         2,
  2360.         MUIM_Application_ReturnID, BT_AUSWAHL
  2361.         );
  2362.  
  2363.     DoMethod(Object->Erg_Div,
  2364.         MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
  2365.         Object->WI_Divi,
  2366.         3,
  2367.         MUIM_Set, MUIA_Window_ActiveObject, Object->Erg_Div
  2368.         );
  2369.  
  2370.     DoMethod(Object->Div_Richtig,
  2371.         MUIM_Notify, MUIA_Text_Contents, MUIV_EveryTime,
  2372.         Object->Ausw_Div_Richtig,
  2373.         3,
  2374.         MUIM_Set, MUIA_Text_Contents, MUIV_TriggerValue
  2375.         );
  2376.  
  2377.     DoMethod(Object->Div_Falsch,
  2378.         MUIM_Notify, MUIA_Text_Contents, MUIV_EveryTime,
  2379.         Object->Ausw_Div_Falsch,
  2380.         3,
  2381.         MUIM_Set, MUIA_Text_Contents, MUIV_TriggerValue
  2382.         );
  2383.  
  2384.     DoMethod(Object->WI_Divi,
  2385.         MUIM_Window_SetCycleChain, Object->Anz_Div,
  2386.         Object->Erg_Div,
  2387.         0
  2388.         );
  2389.  
  2390.     DoMethod(Object->WI_Addieren,
  2391.         MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
  2392.         Object->WI_Addieren,
  2393.         3,
  2394.         MUIM_Set, MUIA_Window_Open, FALSE
  2395.         );
  2396.  
  2397.     DoMethod(Object->WI_Addieren,
  2398.         MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
  2399.         Object->WI_Auswahl,
  2400.         3,
  2401.         MUIM_Set, MUIA_Window_Activate, TRUE
  2402.         );
  2403.  
  2404.     DoMethod(Object->Anz_Addi,
  2405.         MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
  2406.         Object->Anz_Addi,
  2407.         3,
  2408.         MUIM_Set, MUIA_Disabled, TRUE
  2409.         );
  2410.  
  2411.     DoMethod(Object->Anz_Addi,
  2412.         MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
  2413.         Object->App,
  2414.         2,
  2415.         MUIM_Application_ReturnID, ANZ_ADDI
  2416.         );
  2417.  
  2418.     DoMethod(Object->Anz_Addi,
  2419.         MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
  2420.         Object->Erg_Addi,
  2421.         3,
  2422.         MUIM_Set, MUIA_Disabled, FALSE
  2423.         );
  2424.  
  2425.     DoMethod(Object->Anz_Addi,
  2426.         MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
  2427.         Object->WI_Addieren,
  2428.         3,
  2429.         MUIM_Set, MUIA_Window_ActiveObject, Object->Erg_Addi
  2430.         );
  2431.  
  2432.     DoMethod(Object->Erg_Addi,
  2433.         MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
  2434.         Object->App,
  2435.         2,
  2436.         MUIM_Application_ReturnID, ERG_ADDI
  2437.         );
  2438.  
  2439.     DoMethod(Object->Erg_Addi,
  2440.         MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
  2441.         Object->App,
  2442.         2,
  2443.         MUIM_Application_ReturnID, BT_AUSWAHL
  2444.         );
  2445.  
  2446.     DoMethod(Object->Erg_Addi,
  2447.         MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
  2448.         Object->WI_Addieren,
  2449.         3,
  2450.         MUIM_Set, MUIA_Window_ActiveObject, Object->Erg_Addi
  2451.         );
  2452.  
  2453.     DoMethod(Object->Addi_Richtig,
  2454.         MUIM_Notify, MUIA_Text_Contents, MUIV_EveryTime,
  2455.         Object->Ausw_Addi_Richtig,
  2456.         3,
  2457.         MUIM_Set, MUIA_Text_Contents, MUIV_TriggerValue
  2458.         );
  2459.  
  2460.     DoMethod(Object->Addi_Falsch,
  2461.         MUIM_Notify, MUIA_Text_Contents, MUIV_EveryTime,
  2462.         Object->Ausw_Addi_Falsch,
  2463.         3,
  2464.         MUIM_Set, MUIA_Text_Contents, MUIV_TriggerValue
  2465.         );
  2466.  
  2467.     DoMethod(Object->WI_Addieren,
  2468.         MUIM_Window_SetCycleChain, Object->Anz_Addi,
  2469.         Object->Erg_Addi,
  2470.         0
  2471.         );
  2472.  
  2473.     DoMethod(Object->WI_Subtraktion,
  2474.         MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
  2475.         Object->WI_Subtraktion,
  2476.         3,
  2477.         MUIM_Set, MUIA_Window_Open, FALSE
  2478.         );
  2479.  
  2480.     DoMethod(Object->WI_Subtraktion,
  2481.         MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
  2482.         Object->WI_Auswahl,
  2483.         3,
  2484.         MUIM_Set, MUIA_Window_Activate, TRUE
  2485.         );
  2486.  
  2487.     DoMethod(Object->Anz_Subtr,
  2488.         MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
  2489.         Object->Anz_Subtr,
  2490.         3,
  2491.         MUIM_Set, MUIA_Disabled, TRUE
  2492.         );
  2493.  
  2494.     DoMethod(Object->Anz_Subtr,
  2495.         MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
  2496.         Object->App,
  2497.         2,
  2498.         MUIM_Application_ReturnID, ANZ_SUBTR
  2499.         );
  2500.  
  2501.     DoMethod(Object->Anz_Subtr,
  2502.         MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
  2503.         Object->Erg_Subtr,
  2504.         3,
  2505.         MUIM_Set, MUIA_Disabled, FALSE
  2506.         );
  2507.  
  2508.     DoMethod(Object->Anz_Subtr,
  2509.         MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
  2510.         Object->WI_Subtraktion,
  2511.         3,
  2512.         MUIM_Set, MUIA_Window_ActiveObject, Object->Erg_Subtr
  2513.         );
  2514.  
  2515.     DoMethod(Object->Erg_Subtr,
  2516.         MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
  2517.         Object->App,
  2518.         2,
  2519.         MUIM_Application_ReturnID, ERG_SUBTR
  2520.         );
  2521.  
  2522.     DoMethod(Object->Erg_Subtr,
  2523.         MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
  2524.         Object->App,
  2525.         2,
  2526.         MUIM_Application_ReturnID, BT_AUSWAHL
  2527.         );
  2528.  
  2529.     DoMethod(Object->Erg_Subtr,
  2530.         MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
  2531.         Object->WI_Subtraktion,
  2532.         3,
  2533.         MUIM_Set, MUIA_Window_ActiveObject, Object->Erg_Subtr
  2534.         );
  2535.  
  2536.     DoMethod(Object->Subtr_Richtig,
  2537.         MUIM_Notify, MUIA_Text_Contents, MUIV_EveryTime,
  2538.         Object->Ausw_Subtr_Richtig,
  2539.         3,
  2540.         MUIM_Set, MUIA_Text_Contents, MUIV_TriggerValue
  2541.         );
  2542.  
  2543.     DoMethod(Object->Subtr_Falsch,
  2544.         MUIM_Notify, MUIA_Text_Contents, MUIV_EveryTime,
  2545.         Object->Ausw_Subtr_Falsch,
  2546.         3,
  2547.         MUIM_Set, MUIA_Text_Contents, MUIV_TriggerValue
  2548.         );
  2549.  
  2550.     DoMethod(Object->WI_Subtraktion,
  2551.         MUIM_Window_SetCycleChain, Object->Anz_Subtr,
  2552.         Object->Erg_Subtr,
  2553.         0
  2554.         );
  2555.  
  2556.     DoMethod(Object->WI_Ergebnis,
  2557.         MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
  2558.         Object->WI_Ergebnis,
  2559.         3,
  2560.         MUIM_Set, MUIA_Window_Open, FALSE
  2561.         );
  2562.  
  2563.     DoMethod(Object->WI_Ergebnis,
  2564.         MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
  2565.         Object->WI_Auswahl,
  2566.         3,
  2567.         MUIM_Set, MUIA_Window_Activate, TRUE
  2568.         );
  2569.  
  2570.     DoMethod(Object->WI_Ergebnis,
  2571.         MUIM_Window_SetCycleChain, 0
  2572.         );
  2573.  
  2574.     DoMethod(Object->WI_info,
  2575.         MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
  2576.         Object->WI_info,
  2577.         3,
  2578.         MUIM_Set, MUIA_Window_Open, FALSE
  2579.         );
  2580.  
  2581.     DoMethod(Object->WI_info,
  2582.         MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
  2583.         Object->WI_Auswahl,
  2584.         3,
  2585.         MUIM_Set, MUIA_Window_Activate, TRUE
  2586.         );
  2587.  
  2588.     DoMethod(Object->WI_info,
  2589.         MUIM_Notify, MUIA_Window_Activate, TRUE,
  2590.         Object->WI_info,
  2591.         3,
  2592.         MUIM_Set, MUIA_Window_ActiveObject, Object->BT_Info_ok
  2593.         );
  2594.  
  2595.     DoMethod(Object->BT_Info_ok,
  2596.         MUIM_Notify, MUIA_Pressed, FALSE,
  2597.         Object->WI_info,
  2598.         3,
  2599.         MUIM_Set, MUIA_Window_Open, FALSE
  2600.         );
  2601.  
  2602.     DoMethod(Object->WI_info,
  2603.         MUIM_Window_SetCycleChain, Object->BT_Info_ok,
  2604.         0
  2605.         );
  2606.  
  2607.     set(Object->WI_Auswahl,
  2608.         MUIA_Window_Open, TRUE
  2609.         );
  2610.  
  2611.  
  2612.     return(Object);
  2613. }
  2614.  
  2615. void DisposeApp(struct ObjApp * Object)
  2616. {
  2617.     MUI_DisposeObject(Object->App);
  2618.     FreeVec(Object);
  2619. }
  2620.